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INTRODUCTION 


The  Naval  Air  Development  Center  (NAVAIRDEVCEN)  has 
developed  a  computer-based  capzdiility  to  estimate  the  lives 
of  engine  components.  There  exists  a  need  to  provide  both 
rapid  (first  order)  as  well  as  more  accurate  estimates, 
therefore,  an  interactive  conceptual  design  code,  which 
operates  on  a  desktop  micro-computer,  has  been  developed  as 
LIFER,  reference  (a) .  This  document  describes  the  WEIBULL 
risk  computational  routine  (WEIBER)  which  can  be  used  alone, 
or  as  an  integral  part  of  the  life  estimation  methodology. 
When  combined  with  the  Navy  Life  Cycle  Cost  Program,  these 
codes  will  provide  a  true  Return  On  Investment  (ROI) 
capability.  These  codes  provide  the  user  with  the 
capability  to  analytically  establish  trends  with  a  high 
degree  of  confidence  in  their  accuracy.  Such  results  can  be 
used  for  the  many  decision  making  requirements  and  can  be 
presented  to  higher  authorities  for  budget  justification 
with  a  high  degree  of  confidence. 

There  are  numerous  problems  that  can  be  addressed  with 
these  computer  codes,  such  as:  evaluating  several  options  to 
fix  fleet  problems,  minimizing  operating  costs,  maximizing 
performance,  deciding  whether  to  increase  the  life  of  a  part 
or  buy  more  spare  parts,  etc.  These  computer  codes 
represent  the  analytical  tools  required  to  make  such 
evaluations,  but  they  must  be  applied  with  care  and  good 
engineering  judgment.  Like  any  computer  tool,  they  can  be 
misused  through  careless  input  of  incomplete  or  improper 
data.  Throughout  this  and  other  reports  describing  these 
analytical  tools  there  will  be  found  cautions  regarding  the 
applicability  of  the  tools  and  the  necessity  for  as  good  and 
as  complete  a  set  of  input  data  as  possible.  With  the 
proper  approach  to  the  WEIBULL  risk  analysis  referenced 
herein,  almost  any  parts  failure  problem  can  be  solved 
within  the  scope  of  the  computer  codes. 

The  code  listings  in  the  Basic  language  are  given  in 
the  appendix.  Most  of  these  codes  were  originally  developed 
on  a  Radio  Shack  Model  4  and  in  the  version  presented  here 
they  are  directly  usable  on  an  ITT  XTRA.  This  version  has 
also  been  checked  out  on  an  IBM  PC,  an  IBM  PC-XT,  an  IBM  PC- 
AT,  a  Tandy  1000,  and  a  Zenith  PC,  using  the  identical  disk 
and  has  been  found  to  work  perfectly.  Past  experience  has 
shown  that  problem  solution  is  enhanced  and  speeded  up  by 
making  small  changes  to  these  codes  as  dictated  by  the 
individual  problem.  These  changes  are,  for  the  most  part, 
in  the  output  format  and  not  the  calculation  methodology. 
Several  examples  are  referenced  in  this  report. 
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I 

PROGRAM  OVERVIEW 


The  Weibull  Analysis  Program  is  currently  made  up  of 
fifteen  codes,  including  the  executive  routine,  "WEIBER”, 
with  its  cover  and  introductory  screens.  These  cedes  follow 
the  general  approach  to  Weibull  analysis  that  is  found  in 
references  (b)  and  (c)  which  outline  the  fundamental 
approach  of  the  aircraft  engine  industry  as  represented  by 
Pratt  ft  Whitney  and  the  General  Electric  Company.  If  at  all 
possible,  these  references  should  be  read  in  their  entirity 
before  using  the  codes  of  this  report  (WEIBER) .  References 
(d)  through  (g)  were  used  to  complete  the  understanding  of 
general  life  prediction  methods  and  make  excellent  reading 
for  those  interested  in  learning  more  about  this  area  of 
reliability  analysis. 

The  WEIBER  executve  routine  code  provides  access  to  all 
other  codes  as  well  as  the  limited  "HELP"  routine. 

Currently,  HELP  only  provides  a  concise  description  of  the 
functions  of  each  code  and  the  input  required  to  run  each 
code.  HELP  also  describes  the  output  parameters  that  each 
code  provides.  The  following  paragraphs  provide 
descriptions  of  all  currently  available  codes. 

8U8WEIBL.  the  Weibull  parameter  calculation  code,  is 
used  to  calculate  the  Weibull  slope  'BETA'  and  the 
characteristic  life  'ETA'  using  a  statistical  seunple  of  data 
composed  of  both  failures  and  suspended  units  (where 
suspended  units  are  parts  that  are  non<-failed  or  not  failed 
by  the  failure  mode  that  is  currently  under  consideration) . 
Data  required  by  the  code  are:  (1)  the  total  number  of  units 
in  the  sample  population,  (2)  the  number  of  failed  units  in 
the  sample  population,  and  (3)  the  quantity  in,  and  age  of, 
each  group  of  units  with  the  same  age  or  operating  time. 

The  output  from  this  code  consists  of:  (1)  BETA,  (2)  ETA, 

(3)  BIO  life,  (4)  B50  life,  (5)  least  squares  correlation 
coefficient,  and  (6)  the  instantaneous  failure  rate  versus 
the  age  of  the  units.  If  BETA  is  known,  or  a  good  estimate 
is  available,  the  option  (6)  code,  'ETACALC',  could  be  used 
to  calculate  the  characteristic  life. 

PRBBRI8K.  the  Present  Risk  Analysis  code,  is  used  to 
calculate  the  expected  number  of  failures  to  have  occurred 
to  date  over  the  current  life  of  the  units  in  the  sample. 

The  code  is  also  useful  for  verifying  the  values  of  BETA  and 
ETA  by  comparing  answers  obtained  using  this  code  with  known 
failures  in  the  population.  Data  required  by  the  code  are: 
(1)  BETA,  (2)  ETA,  and  (3). the  quantity  in,  and  age  of,  each 
group  of  units  with  the  same  age.  The  output  from  this  code 
consists  of:  (1)  the  percent  in  each  group  expected  to  fail. 
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(2)  the  number  in  each  group  expected  to  fail,  and  (3)  the 
total  number  of  expected  failures  for  the  population. 

FUTRISKS.  the  future  risk  analysis  code,  is  used  to 
calculate  the  expected  nxmber  of  failures  over  a  specified 
future  time  period  for  a  population  that  accumulates  more 
operating  time  over  that  time  period.  It  is  assumed  that 
there  are  no  repairs  or  new  production  so  the  failures  are 
for  the  original  population  only  and  each  part  can  fail  only 
once.  A  more  complex  analysis,  where  parts  are  repaired  and 
returned  to  service,  is  available  in  the  Monte  Carlo  risk 
analyses,  options  5,  6  and  11.  Data  required  by  the  code 
are:  (1)  BETA,  (2)  ETA,  (3)  the  nvimber  of  months  into  the 
future  that  the  analysis  will  cover,  (4)  the  average  monthly 
operating  hours  (or  cycles  or  other  time  measurement)  per 
part  over  the  time  period,  and  (5)  the  quantity  in,  and  age 
of,  each  group  of  parts  with  the  same  age.  The  output  from 
this  code  consists  of:  (1)  the  percent  in  each  group 
expected  to  fail,  (2)  the  number  in  each  group  expected  to 
fail,  (3)  the  cumulative  count  of  failures,  and  (4)  the 
total  number  of  expected  failures  for  the  population. 

WEIBRISK.  a  Monte  Carlo  Weibull  failure  analysis  code, 
is  used  to  forecast  numbers  of  failures  as  well  as  the 
failure  times  in  terms  of  operating  hours  or  cycles.  It  is 
a  complex  code  that  makes  thousands  of  calculations  in  each 
problem  solution  and  keeps  track  of  failures  as  they  occur. 
The  code  also  computes  averages  per  iteration  and  per 
engine.  It  is  extremely  accurate  when  the  correct  Weibull 
parameter  data  is  input  and  is  capable  of  providing 
sensitivity  analyses  when  precise  Weibull  data  is  difficult 
to  obtain,  such  as  early  in  an  engine  program  when  there 
have  been  few  or  no  failures.  Data  required  by  the  code 
are:  (1)  BETA,  (2)  ETA,  (3)  the  quantity  in,  and  age  of, 
each  group  of  parts  with  the  same  initial  operating  time, 

(4)  the  total  number  of  units  in  the  population,  (5)  the 
number  of  months  into  the  future  that  the  analysis  will 
cover,  (6)  the  average  operating  hours  (or  cycles,  etc.)  per 
month  per  part  over  the  total  time  of  the  analysis,  (7)  the 
inspection  interval  at  which,  if  reached  before  a  failure 
occurs,  all  parts  are  made  good-as-new  or  zero-timed,  (8) 
the  number  of  failure  modes  in  the  analysis,  and  (9)  the 
engine  name  from  which  the  parts  come.  Note  that  BETA  and 
ETA  must  be  furnished  for  each  failure  mode.  It  should  also 
be  noted  that  large  numbers  of  parts  and/or  failure  modes 
will  greatly  increase  the  running  time  (computer  time) .  The 
output  from  this  code  consists  of:  (1)  failure  times,  (2) 
running  count  of  time  on  each  engine,  (3)  subsequent  failure 
time,  (4)  the  number  of  failures  per  engine  or  part,  (5) 
identification  of  the  failure  mode,  (6)  the  average  number 
of  failures  per  engine  or  part  per  iteration,  (7)  the 
cumulative  failures  per  engine,  and  (8)  the  average  number 
of  failures  for  all  engines  or  parts  over  the  total  number 
of  Iterations.  The  number  of  iterations  in  the  analysis  can 
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be  varied  to  any  number  desired.  It  is  strongly  suggested 
that  a  minimum  of  ten  iterations  be  used. 

8HRTWEIB .  a  Monte  Carlo  Heibull  failure  analysis  code 
with  a  short  printout,  is  a  code  that  is  almost  Identical  to 
the  previous  code,  HEIBRISK,  except  for  the  amount  of  hard 
copy  output.  In  order  to  speed  up  the  analysis,  only 
numbers  of  failures  are  output  while  failure  times  by 
failure  mode  are  suppressed.  This  code  is  very  useful  for 
the  case  where  the  dominant  failure  mode  has  been  determined 
and  the  primary  concern  is  the  number  of  failures.  It  is 
also  useful  when  time  is  critical  and  the  calculation  of  the 
number  of  failures  will  allow  some  initial  decisions  to  be 
made.  With  this  code,  many  more  engines  or  parts  may  be 
analyzed  in  a  given  amount  of  computer  time  relative  to 
WEIBRISK  and  the  amount  of  paper  output  generated  is 
significantly  less. 

BTACALC  is  a  code  to  calculate  the  characteristic  life 
ETA  When  BETA  is  known  for  the  failure  mode  and  based  on  a 
statistically  valid  number  of  failures.  Very  accurate 
failure  data  is  required  to  result  in  an  accurate 
calculation  of  ETA  using  this  code.  Data  required  by  this 
code  are:  (1)  BETA,  (2)  the  total  number  of  failures  for 
which  data  is  available,  and  (3)  data  pairs  consisting  of 
the  number  of  failures  and  operating  times  at  the 
failure (s).  The  output  from  this  code  is  the  calculated 
value  of  the  characteristic  life,  ETA. 

SKEIEtBE  is  a  code  to  calculate  upper  and  lower 
confidence  bounds  for  both  Beta  and  Eta  as  well  as  time  to 
first  failure.  These  calculations  can  be  made  for 
confidence  levels  of  0.90,  0.95,  or  0.99.  These  upper  and 
lower  limits  are  indications  of  the  accuracy  one  can  expect 
from  the  many  calculations  that  can  be  made  from  these 
codes.  As  higher  values  of  confidence  levels  are  chosen, 
the  upper  and  lower  bounds  move  farther  apart. 

RELIABTY .  This  code  is  used  to  calculate  the 
reliability  of  a  part  at  any  time  based  on  the  values  of 
Beta  and  Eta.  The  confidence  interval  may  then  be 
calculated  for  the  value  of  reliability  at  confidence  levels 
of  09,  0.95,  and  0.99.  The  probability  of  failure  is  also 
presented.  As  in  the  case  of  the  previous  code,  the  upper 
and  lower  bounds  move  farther  apart  as  the  confidence  level 
is  chosen  to  be  a  higher  value. 

BBTAHIST.  This  code  prints  a  hard  copy  of  a  list  of 
probable  values  (or  ranges  of  values  in  some  cases)  of  the 
Weibull  slope  Beta  for  some  common  failure  modes  in  gas 
turbine  components  or  parts,  While  these  historical  trend 
values  should  not  be  taken  to  be  absolute,  they  represent 
reasonable  starting  values,  especially  for  performing 
sensitivity  or  "what-if"  analyses. 
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PWAWEIBL.  This  code  is  similar  to  the  SUSWEIBL  code, 
number  1,  except  that  it  can  provide  the  values  of  Beta  and 
Eta  which  maximize  the  'likelihood'  of  obtaining  the 
observed  data.  There  may  be  cases  where  these  values  may 
differ  from  those  obtained  in  code  niimber  1  or  other  codes 
that  may  be  available.  In  most  cases,  however,  they  are 
close  enough  to  not  impact  the  final  results  to  a  great 
degree.  If  there  is  a  concern  over  accuracy  it  is 
recommended  that  the  data  be  run  through  both  codes  to 
establish  sensitivities. 

BIOWEIBL.  This  code  is  especially  designed  to  handle 
up  to  1100+  parts  in  a  Monte  Carlo  analysis.  It  has  been 
optimized  for  large  numbers  of  parts  and  should  be  used  only 
after  the  dominant  failure  mode  has  been  determined.  No 
more  than  one  failure  mode  should  be  analyzed  at  one  time 
when  the  quantity  of  parts  nears  the  maximum  since  the 
memory  available  to  the  basic  language  will  most  likely  be 
exceeded.  The  input  is  the  same  as  for  the  previously 
described  WEIBRISK  and  SHRTWEIB  Monte  Carlo  analyses,  (4) 
and  (5) ,  but  the  output  is  limited  to  that  of  of  code  (5) . 
Only  the  total  failures  are  given  per  iteration  along  with 
the  averages. 

WEIBAYES .  This  code  is  for  use  when  there  is 
insufficient  failure  data  to  calculate  the  Weibull  slope 
Beta  and  the  characteristic  life  Eta  with  codes  (1)  or  (10). 
This  code  requires  that  a  best  estimate  be  made  of  the 
failure  mode  and  hence  the  Weibull  slope  Beta.  The  BETAHIST 
code  (9)  should  be  used  for  guidance  as  necessary.  It  is 
also  required  that  the  characteristic  life  be  known  or 
estimated  using  the  ETACALC  code  (6)  which  is  the  true 
Weibayes  estimate  of  'ETA'.  These  values  form  the  input  for 
this  code  which  then  calculates  the  appropriate  life  of  the 
part  in  question. 

ZOFAIL8B.  This  code  calculates  the  number  of 
engines/parts  that  must  be  tested  without  failure  in  order 
to  demonstrate  that  a  given  failure  mode  has  been  either 
eliminated  or  substantially  improved.  Inputs  required  are 
(1)  Weibull  slope  Beta,  (2)  characteristic  life  Eta,  and  (3) 
an  estimate  of  a  reasonable  amount  of  test  time,  recognizing 
that  at  least  three  parts  or  more  must  each  be  tested  for 
that  amount  of  time.  The  code  allows  a  second  and  third 
test  time  estimate  to  be  made  (or  more  if  necessary)  and 
also  provides  for  an  alternate  method  of  test  plan 
formulation.  The  test  plan  is  output  in  terms  of  a  sample 
size,  each  of  which  must  be  tested  for  a  given  nximber  of 
hours  (or  cycles)  without  failure  in  order  to  demonstrate  a 
significant  improvement  in  life. 

WZFTESTP .  This  code  is  similar  to  the  previous  code 
except  that  it  calculates  a  test  plan  that  allows  for 
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failures.  Here  the  goal  is  to  devise  a  test  plan  to 
demonstrate  the  achievement  of  a  given  improvement  in  a 
part's  characteristic  life.  The  test  is  passed  if  all  parts 
are  run  for  a  specified  nxunber  of  test  hours  (or  cycles) 
with  no  more  than  the  calculated  number  of  failures.  Input 
consists  of  (1)  the  current  characteristic  life,  (2)  the 
characteristic  life  with  an  improved  part  or  fix,  (3)  the 
Weibull  slope  BETA  for  the  failure  mode,  and  (4)  a 
reasonable  estimate  of  test  hours  for  each  test  article. 
Output  consists  of  a  sample  size,  the  number  of  test  hours 
for  each  part  in  the  sample,  and  the  number  of  failures 
allowed  for  a  successful  test. 

PROGRAM  DESCRIPTION  AMD  OPERATION 
PROGRAM  WEIBER 

WEIBER  is  the  WEIBULL  Executive  Routine  which  provides 
access  to  all  other  codes  and  the  HELP  routine.  This  code 
is  entirely  interactive  and  menu  driven.  When  WEIBER  is 
first  activated,  those  familiar  with  its  operation  can  go 
right  to  the  desired  code  to  calculate  the  parameters  of 
interest.  Those  with  less  familiarity  should  choose  the 
menu  or  HELP.  Choosing  the  menu  still  allows  one  to  go  to 
help  if  desired,  directly  from  the  menu.  The  menu  gives  the 
user  the  choice  of  selecting  any  of  the  options  by  name  and 
number.  An  option  is  chosen  by  inputting  the  option  number. 
The  chosen  code  next  appears  with  instructions  on  how  to 
proceed.  Always  be  sure  to  follow  instructions  explicitly 
because  format  is  critical  for  most  input. 

There  are  currently  fourteen  options  available  with 
room  for  four  more.  Future  codes  which  are  being  considered 
at  the  present  are  those  to  utilize  Weibull  "Thorndike" 
charts,  treat  shifting  Weibulls,  and  account  for  curved 
Weibulls.  In  addition,  data  bases  for  Weibull  parameters 
will  be  established  as  the  codes  are  used  for  solving  more 
and  more  problems.  These  and  other  options  will  be  added  as 
they  become  necessary  in  the  ongoing  process  of  analysis. 

The  current  fourteen  options  will  be  described  in  more 
detail  and  sample  solutions  will  be  presented  to  illustrate 
their  fundamental  capability.  Some  of  the  options  exist  in 
several  versions  other  than  those  presented.  These  other 
versions  were  generated  for  special  case  analyses  and  will 
not  be  presented  here  since  they  are  not  general  enough  to 
be  of  wide  interest. 

1.  BUBWBIBL  is  the  SUSPENDED  WEIBULL  code  which  is 
used  to  calculate  values  of  the  Weibull  slope  (BETA)  and  the 
characteristic  life  (ETA) .  Actual  failure  data  is  used  as 
well  as  data  from  parts  in  the  popu..ation  which  have  not 
failed,  or  have  failed  in  another  failure  mode.  For 
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example,  consider  a  population  of  six  turbine  disks  which 
have  all  been  tested  to  failure.  Figure  1  shows  the  first 
screen  of  the  SUSWEIBI  code  which  asks  for  the  input  data. 
First,  the  total  number  in  the  sample  is  required,  along 
with  the  number  that  have  failed.  Secondly,  the 
distribution  of  failures  is  required.  This  data  is  input  in 
the  format  of  data  statements  and  requires  line  numbers  for 
the  BASIC  code.  Figure  2  is  a  sample  of  such  an  input. 

Note  that  in  each  case  there  is  a  line  number  followed  by 
the  requested  data.  The  exact  line  number  as  shown  must  be 
used.  All  computers  have  limits  for  the  length  of  data 
lines  so  more  lines  may  be  needed.  Use  consecutive  line 
numbers  if  more  lines  are  required,  starting  with  8911  and 
not  exceeding  9000.  As  currently  configured,  only  ten  data 
pairs  can  be  entered.  To  enter  more  than  ten  data  pairs, 
add  dimension  statements  as  follows  in  lines  150  and  151: 

150  DIM  T(IOO) 

151  DIM  F(IOO) 

This  will  allow  a  total  of  100  data  pairs  to  be  used. 

Note  that  the  values  FI,  F2,  F'J ,  etc.,  are  the 
cumulative  count  of  the  failures  and  that  there  must  be  as 
many  values  as  the  number  K  entered  in  line  8800.  The 
cumulative  count  data  are  always  entered  as  increasing 
numbers  which  are  consecutive.  See  line  8910  in  figure  2. 

In  cases  where  the  entire  population  has  NOT  failed  there 
will  be  suspended  data.  For  example,  there  may  have  been 
only  five  failures  out  of  the  population  of  six.  In  the 
illustrated  case  of  Figure  2,  this  may  have  been  the  disk 
with  950  hours,  or  disk  number  4.  The  data  line  would  then 
be: 


8910  DATA  780,1,820,2,910,3,1050,5,1050,6 

Note  that  the  fourth  disk  with  950  hours  has  been  omitted, 
or  suspended,  but  that  everything  else  is  the  same  as  in 
figure  2.  The  values  of  Beta  and  Eta  will  be  slightly 
different  for  five  out  of  six  failures  than  for  all  six 
failing,  as  they  should  be.  Always  enter  the  data  in 
ascending  order  of  age  to  failure,  omitting  unfailed  parts 
or  parts  failed  in  other  failure  modes.  This  same  data  is 
used  to  create  a  histogram  of  failures. 

The  sample  solution  presented  later  in  this  document 
shows  a  sample  of  the  output  screens  using  an  input  of  six 
out  of  six  failures.  If  a  Weibull  plot  is  desired  it  may  be 
plotted  using  the  data  presented  (Cumulative  Percent  Failed 
versus  Time  to  Failure) .  Also  shown  on  the  screens  are 
Beta,  Eta,  BIO  and  B50  lives,  and  the  least  squares 
correlation  coefficient.  The  Weibull  parameters  may  be 
verified  by  plotting  the  Weibull  data  and  graphically 
determining  the  same  values.  Additional  data  shown  on  the 
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SUSPENDED  WEIBULL  PARAMETER  CALCULATION  PROGRAM  (GEN  ELEC  CO) 
AS  IMPROVED  BY  CODE  6052,  NAVAIRDEVCEN ,  WARMINSTER,  PA  18974 


DATA  INPUT - TYPE  IN  THE  FOLLOWING  : 

8800  DATA  N,K 

WHERE  N  =  THE  TOTAL  NUMBER  IN  TH  SAMPLE  AND 
K  »  THE  NUMBER  OF  FAILURES 

8910  DATA  T1,F1,T2,F2,T3,F3, . . . ,ETC. 

WHERE  T1  IS  THE  AGE  IN  HOURS  OF  THE  FIRST  FAILURE 

FI  IS  THE  CUMULATIVE  COUNT  OF  THE  FIRST  FAILURE 

T2  IS  THE  AGE  IN  HOURS  OF  THE  SECOND  FAILURE 

F2  IS  THE  CUMULATIVE  COUNT  OF  THE  SECOND  FAILURE,  etc 

USE  ADDITIONAL  LINES  AS  NEEDED  TO  ADD  MORE  DATA. 

WHEN  THE  LAST  DATA  IS  ENTERED,  INPUT  <RUN  2100>  TO  CONTINUE. 
Break  in  2000 
Ok 


FIGURE  1  SCREEN  1  SUSWEIBL 


8800  DATA  6,6 

8910  DATA  780,1,820,2,910,3,950,4,1050,5,1050,6 


FIGURE  2  SUSWEIBL  INPUT  SAMPLE 
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last  screen  is  the  value  of  the  instantaneous  failure  rate 
versus  the  age  of  the  parts.  Note  that  all  of  the  above 
output  values  will  change  if  either  more  or  fewer  than  six 
failures  are  used. 

2 .  PRE8RISK  is  the  PRESent  RISK  analysis  code  which  is 
used  to  calculate  the  number  of  units  that  should  have 
failed  by  the  present  time,  or,  the  expected  failures  to 
date  based  on  the  current  operating  times.  This  code  is 
very  useful  in  verifying  the  values  of  Beta  and  Eta  that  are 
used,  knowing  the  actual  niamber  of  failures  to  date  and 
comparing  them  with  the  calculated  number  of  failures. 

Figure  3  shows  the  first  screen  of  the  PRESRISK  code  which 
asks  for  the  input  data.  The  first  data  required  are  the 
values  of  Beta  and  Eta  for  the  given  failure  mode.  This 
input  is  entered  as  a  data  statement  and  therefore  requires 
a  line  number  (4000) .  The  next  input  are  data  pairs 
consisting  of  the  number  of  parts  that  all  have  the  same 
current  operating  time  and  the  value  of  that  common 
operating  time.  These  data  are  also  entered  as  a  data 
statement  using  the  line  number  4040.  Again,  as  many  data 
pairs  as  necessary  should  be  used  as  long  as  it  is 
consistent  with  the  line  length  allowed  by  the  computer 
being  used.  The  current  code  allows  for  ten  data  pairs  but 
this  may  be  increased  by  adding  dimension  statements  as  in 
SUSWEIBL.  For  example: 

12  DIM  N(IOO) 

13  DIM  T(IOO) 

This  will  allow  a  total  of  100  data  pairs  to  be  used. 

Figure  4  is  a  sample  of  such  input  and  consists  of  five  data 
pairs  representing  a  total  of  twenty-five  parts.  It  can  be 
seen  that  there  are  five  categories  of  operating  time  and 
that  there  are  five  parts  in  each  time  category.  Additional 
data  pairs  can  be  input  by  using  additional  DATA  lines 
starting  with  program  line  4041  and  not  exceeding  line  4999. 
Note  that  data  is  entered  in  ascending  order  of  operating 
time. 


Data  pairs  should  be  formulated  such  that  the 
distribution  represented  by  all  the  data  pairs  is  a  good 
representation  of  the  real  life  distribution.  There  can  be 
as  many  as  one  data  pair  for  every  part,  but  this  usually 
becomes  unwieldy  when  there  are  many  parts  to  be  considered. 
It  is  not  necessary  for  the  data  pairs  to  represent  exact 
multiples  of  the  same  size,  such  as  5,  10,  20,  100,  or  1000. 
The  number  of  parts  in  each  data  pair  can  be  the  same  or 
each  one  can  be  entirely  different  and  completely 
independent.  The  distribution  should  be  as  representative 
and  complete  as  possible  to  yield  the  most  accurate  results. 

The  last  input  data  is  that  of  figure  5.  Inputting  the 
number  of  data  pairs  entered  is  necessary  for  the  code  to 
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PRESENT  RISK  ANALYSIS 
NAVAL  AIR  DEVELOPMENT  CENTER,  CODE  6052 
WARMINSTER,  PA  18974 
26  FEB  86 

DATA  INPUT  -  ENTER  THE  FOLLOWING  : 

4000  DATA  B,H 

WHERE  B  B  THE  WEIBULL  SLOPE  'BETA' 

AND  H  «  THE  CHARACTERISTIC  LIFE  'ETA' 

4040  DATA  N1,T1,N2 ,T2 , . . . ,etc. 

WHERE  N1  IS  THE  NUMBER  OF  UNITS  AT  TIME  T1 
T1  IS  THE  OPERATING  TIME  OF  UNITS  N1 
N2  IS  THE  NUMBER  OF  UNITS  AT  TIME  T2 
T2  IS  THE  OPERATING  TIME  OF  UNITS  N2 

USE  ADDITIONAL  LINES  AS  NEEDED  TO  ADD  MORE  DATA. 

WHEN  THE  LAST  DATA  IS  ENTERED,  INPUT  <RUN  75>  TO  CONTINUE. 
Break  in  70 
Ok 


FIGURE  3  SCREEN  1  PRESRISK 


4000  DATA  3,2000 

4040  DATA  5,100,5,200,5,300,5,400,5,500 


FIGURE  4  PRESRISK  INPUT  SAMPLE 
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INPUT  THE  NUMBER  OF  DATA  PAIRS  JUST  ENTERED?  5 
INPUT  THE  ENGINE  AND/OR  COMPONENT  NAME?  TF 

FIGURE  5  PRESRISK  INPUT 


PRESENT  RISK  ANALYSIS 
NUMBER  OF  FAILURES  EXPECTED 
TO  HAVE  OCCURRED  BASED  ON  CURRENT 
OPERATING  TIMES 

TF 


DATA  PAIRS  USED:  (NO.  OF  UNITS,  OPERATING  TIME) 


5,  100,  5,  200, 

5,  300,  5, 

400,  5,  500, 

NO.  UNITS 

TIME 

%FAIL 

NO.  FAILS 

5 

100 

1.250506E-04 

6.252527E-04 

5 

200 

9.95103E-04 

4.997552E-03 

5 

300 

3.369331E<-03 

1.684666E-02 

5 

400 

7.968068E-03 

3.984034E-02 

5 

500 

1.550353E-02 

7.751763E-02 

TOTAL  FAILURES 

=  .1398274 

VALUE  OF  WEIBULL  SLOPE  BETA  IS  3 
VALUE  OF  CHARACTERISTIC  LIFE  ETA  IS  2000 


FIGURE  6  PRESRISK  OUTPUT  SCREEN 
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properly  account  for  all  data  pairs.  This  nvunber  is  used  in 
a  counting  loop  to  assure  all  failures  are  calculated. 

The  output  screen  is  shown  in  figure  6.  In  addition  to 
giving  the  number  of  failures  for  each  data  pair,  the  total 
failures  are  given  for  all  data  pairs.  Also,  the  inputs  are 
presented  such  that  a  record  is  available  to  identify  the 
case  analyzed.  The  current  PRESRISK  code  automatically 
gives  a  hard  copy  printout  that  duplicates  the  output 
screen.  This  can  be  suppressed  by  eliminating  all  lines  in 
the  code  that  start  with  LPRINT.  It  is  NOT  recommended  that 
this  be  done  except  when  a  printer  is  not  available  or  when 
the  available  printer  is  not  working.  In  such  cases  the 
code  will  hang  up  if  the  LPRINT  instructions  are  not 
eliminated.  Do  NOT  save  the  code  with  the  deleted  LPRINT 
lines  using  the  same  name  (PRESRISK)  or  the  hard  copy 
version  will  be  lost. 

3.  F0TRI8K8  is  the  FUTure  RISKS  analysis  code  which  is 
used  to  calculate  the  expected  number  of  failures  over  the 
next  user  defined  time  period,  such  as  12,  15,  30,  or  36 
months.  This  future  time  period  is  always  specified  in 
months  and  may  be  any  value  as  required.  Only  one  failure 
mode  can  be  examined  at  a  time  but  the  code  runs  very  fast 
and  can  be  repeated  as  many  times  as  necessary  to  cover  as 
many  failure  modes  as  one  desires  in  a  very  short  period  of 
time.  Figure  7  shows  the  first  screen  of  FUTRISKS  which 
requests  the  input  data.  The  first  data  items  to  be  input 
are  BETA  and  ETA  for  the  failure  mode  of  Interest,  just  as 
in  the  previous  code,  PRESRISK.  Again,  this  is  entered  as  a 
data  statement  and  requires  a  line  number,  which  in  this 
case  is  4000.  The  next  input  required  is  the  number  of 
months  into  the  future  that  the  analysis  is  to  cover,  along 
with  the  average  utilization  rate  in  operating  hours  per 
month.  These  input  data  items  are  separated  by  a  comma  as 
are  BETA  and  ETA.  Note  that  cycles,  time  at  maximum  power, 
time  at  specified  temperature,  afterburner  lights,  or  any 
other  age  measurement  may  be  used  in  place  of  operating 
hours  as  long  as  BETA  and  ETA  are  determined  using  the  same 
parameter . 

The  last  data  to  be  input  are  data  pairs  consisting  of 
current  operating  time  (or  cycles,  etc.)  preceded  by  the 
number  of  units  or  parts  having  the  same  operating  time. 
Again,  all  values  are  separated  by  commas.  As  many  data 
pairs  as  necessary  may  be  entered  but  it  should  be  kept  in 
mind  that,  as  the  number  of  data  pairs  grow,  the  computing 
time  lengthens.  While  the  computation  time  lengthens,  the 
computer  code  is  still  relatively  fast  with  large  nximbers  of 
data  pairs.  There  is  currently  a  limit  of  41  data  pairs  in 
the  code.  If  more  data  pairs  are  to  be  used,  change  the 
existing  dimension  statements  to  the  number  desired.  For 
example: 
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FUTURE  RISK  ANALYSIS 


DATA  INPUT  -  ENTER  TH  FOLLOWING  : 

4000  DATA  B,H 

WHERE  B  B  THE  WEIBULL  SLOPE  'BETA' 

H  =  THE  CHARACTERISTIC  LIFE  'ETA' 

4040  DATA  MOS,UTR 

WHERE  MOS  IS  THE  NUMBER  OF  MONTHS  AT  TIME  T1 
UTR  IS  THE  MONTHLY  UTILIZATION  RATE 

4049  DATA  Nl,  Tl,  N2,  T2 , . . . ,  etc. 

WHERE  Nl  IS  THE  NUMBER  OF  UNITS  AT  TIME  Tl 
Tl  IS  THE  OPERATING  TIME  OF  UNITS  Nl 
N2  IS  HTE  NUMBER  OF  UNITS  AT  TIME  T2 
T2  IS  THE  OPERATING  TIME  OF  UNITS  N2 ,  etc. 

USE  ADDITIONAL  LINES  AS  NEEDED  TO  ADD  MORE  DATA. 

WHEN  THE  LAST  DATA  PAIR  IS  ENTERED,  INPUT  <RUN  250>  TO  CONTINUE. 
Break  in  230 
Ok 


FIGXniE  7  SCREEN  1  FUTRISKS 


4000  DATA  6.557812,2741.127 
4040  DATA  12,80 

4049  DATA  54,400,81,500,54,600,162,700,54,800,189,900,270,1000, 
216,1100,270,1200,243,1300,189,1400,135,1500,81,1600,54,1700 


FIGURE  8  FUTRISKS  INPUT  SAMPLE 
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290  DIM  N(IOO) 

300  DIM  T(IOO) 

These  changes  will  allow  a  total  of  up  to  100  data  pairs  to 
be  input.  One  can  always  input  fewer  data  pairs  than 
allowed  by  the  dimension  statements,  but  never  more.  Figure 
8  is  a  sample  of  the  input  required  by  FUTRISKS  and  consists 
of  14  data  pairs  representing  2052  parts.  Mote  that  the 
operating  times  are  equally  divided  into  increments  of  100 
with  an  initial  value  of  50  hours.  At  times  of  1750  and 
1950  the  number  of  parts  are  0  (zero) .  This  is  an 
indication  that  the  input  was  derived  from  a  distribution  of 
average  numbers  of  parts  versus  operating  time,  or  a 
histogram.  Note  that  the  data  is  entered  in  ascending  order 
of  operating  time.  Data  pairs  for  FUTRISKS  should  be  as 
accurate  as  possible  and  obviously  as  complete  as  possible. 
If  there  are  zero  parts  for  a  given  class  Interval  (time 
period)  of  operating  time,  then  a  zero  should  be  entered  and 
it  should  count  as  a  data  pair.  Since  the  last  input  is  the 
number  of  data  pairs  it  is  important  to  count  all  data 
pairs,  even  those  with  zero  parts. 

The  output  screen  is  shown  in  figure  9.  In  this  figure 
the  first  and  second  columns  are  the  numbers  of  parts  and 
the  operating  time  at  the  end  of  the  future  time  of  the 
analysis.  These  are  data  pairs  corresponding  to  the  future 
time  for  which  the  number  of  failures  is  desired.  The  third 
and  fourth  columns  are  the  percent  failure  for  each  future 
time  data  pair  and  the  corresponding  number  of  failures. 

The  last  column  has  the  cumulative  number  of  failures  for 
each  future  data  pair.  The  last  item  shown  is  the  total 
number  of  expected  failures  for  the  total  population  over 
the  total  accumulated  operating  time  of  the  analysis.  The 
current  FUTRISKS  code  automatically  gives  a  hard  copy 
printout  that  duplicates  the  output  screen.  This  can  be 
suppressed  by  eliminating  all  lines  in  the  code  that  start 
with  LPRINT.  It  is  recommended  that  this  NOT  be  done  unless 
there  is  no  printer  available.  In  no  case  should  one  save 
the  code  with  deleted  LPRINT  lines  on  the  original  disk 
using  the  same  name  (FUTRISKS)  or  the  hard  copy  version  will 
be  lost. 


4.  WBIBRISK  is  the  most  comprehensive  of  all  the  codes 
available  through  WEIBER.  It  is  a  completely  automatic  code 
to  calculate  the  results  of  a  Monte  Carlo  analysis;  it  can 
produce  a  very  substantial  amount  of  output.  Use  of  this 
code  can  easily  exceed  the  memory  capacity  (RAM)  of 
microcomputers  with  64K  or  less  available  to  BASIC.  If 
such  is  the  case,  the  problem  must  be  broken  up  into  smaller 
parts,  each  part  must  be  run  separately,  and  the  results 
then  combined  to  form  the  overall  result.  The  code  is  used 
to  forecast  the  number  of  failures  as  well  as  the  time  for 
each  failure.  Problems  can  be  solved  with  multiple  failure 
modes  where  the  analysis  must  determine  the  mode  of  failure 
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FUTURE  RISK 

ANALYSIS 

FORECASTED 

FAILURES  OVER 

THE  NEXT  12 

MONTHS  TIME 

UTILIZATION  RATE 

IS 

80  HOURS  PER  MONTH 

TJ 

MO.  UNITS 

TIME 

%  FAIL 

NO. FAILS 

CUM  FAILS 

54 

1360 

0.01004 

0.54191 

0.54191 

81 

1460 

0.01592 

1.28990 

1.83181 

54 

1560 

0.02446 

1.32075 

3.15255 

162 

1660 

0.03648 

5.90921 

9.06177 

54 

1760 

0.05296 

2.85973 

11.92150 

189 

1860 

0.07499 

14.17324 

26.09474 

270 

1960 

0.10372 

28.00345 

54.09819 

216 

2060 

0.14024 

30.29192 

84.39011 

270 

2160 

0.18550 

50.08423 

134.47430 

243 

2260 

0.24008 

58.33913 

192.81350 

189 

2360 

0.30403 

57.46207 

250.27550 

135 

2460 

0.37665 

50.84838 

301.12390 

81 

2560 

0.45633 

36.96305 

338.08700 

54 

2660 

0.54049 

29.18628 

367.27320 

TOTAL  FAILURES  «  367.2732 

FIGtJRE  9  FUTRISKS  OUTPUT  SCREEN 
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that  causes  each  failure.  This  is  done  over  an  extended 
future  time  and  is  always  accomplished  a  number  of  times  in 
order  to  fulfill  the  requirements  of  the  Monte  Carlo 
analysis,  generally  10  times  or  more.  It  is  important  to 
recognize  that  the  analytical  procedure  will  calculate  the 
time  to  failure  for  all  failure  modes  and  then  select  the 
one  with  the  shortest  time  to  failure  as  the  mode  of 
failure.  This  is  done  for  all  engines  until  the  total 
specified  future  time  has  been  covered.  At  failure,  the 
engine  is  assumed  to  have  all  modes  of  failure  brought  to 
zero  time  (good-as-new)  by  either  replacing  the  part  or  by 
inspection  and  certification  that  the  part  will  be  suitable 
until  the  next  inspection  is  due. 

A  typical  problem  could  involve  as  many  as  20  or  more 
engines  with  4  or  more  failure  modes  and  with  an  analytical 
time  period  running  as  long  as  ten  to  twenty  years, 
operating  at  an  average  of  25  to  60  hours  per  month.  Such 
an  analysis,  performed  ten  times,  would  involve  many 
thousands  of  calculations  and  mean  keeping  track  of  possibly 
hundreds  of  failures.  It  requires  calculating  the  time  to 
fail  for  each  failure  mode,  determining  which  is  the  first 
mode  to  cause  failure,  and  then  recalculating  the  failures 
until  the  specified  future  time  has  elapsed.  This  would  be 
done  at  least  ten  times  for  each  engine  until  reasonable 
statistical  averages  can  be  determined. 

Figures  10  and  11  show  the  first  two  screens  which  are 
introductory  in  that  they  tell  what  capability  the  code  has, 
the  required  inputs,  and  the  necessity  of  using  the  correct 
input  format.  Figure  12  is  the  first  input  screen  and 
requests  the  input  of  BETA'S  for  all  failure  modes.  Also 
shown  is  a  sample  line  input  for  BETA  so  there  is  no 
question  about  format.  The  next  screen  is  the  input  for 
ETA'S,  figure  13,  which  also  shows  a  sample  line  of  input 
for  clarity.  The  next  input  screen,  figure  14,  is  for  data 
pairs  consisting  of  the  number  of  engines  with  the  least 
number  of  initial  operating  hours  followed  by  a  comma  and 
then  the  corresponding  number  of  operating  hours.  This  data 
pair  is  followed  by  a  comma  and  the  next  data  pair  of 
engines  having  the  next  least  numter  of  operating  hours,  a 
comma,  and  then  that  corresponding  number  of  operating 
hours,  and  so  on  until  all  engines  have  been  accounted  for 
along  with  their  initial  operating  times.  If  the  initial 
time  is  zero  for  any  engines  then  a  zero  must  be  input  for 
that  engine  or  group  of  engines.  Again,  a  sample  line  is 
shown  for  clarification. 

The  next  input  screen,  figure  15,  is  a  series  of  input 
questions  which  must  be  answered  with  numbers.  Items 
requested  are:  the  number  of  data  pairs  entered,  the  total 
ntunber  of  engines,  the  number  of  months  the  analysis  is  to 
cover,  the  average  utilization  rate  (in  flight  hours  per 
month)  of  the  engines,  the  inspection  interval  (or  maximum 
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WEIBULL  RISK 
A  MONTE  CARLO  SIMULATION 


THIS  PROGRAM  PROVIDES  THE  CAPABILITY  TO  CALCULATE  THE  NUMBER 
OF  FAILURES  FOR  SEVERAL  DIFFERENT  PARTS  IN  AN  ENGINE  OVER  A  USER 
SPECIFIED  TIME  PERIOD.  UP  TO  25  ENGINES  CAN  BE  ANALYZED  WITH 
SCHEDULED  INSPECTIONS  WHERE  THE  PARTS  CONSIDERED  ARE  BROUGHT  TO 
ZERO-TIME,  i.e.  ARE  MADE  GOOD-AS-NEW. 

INPUTS  CONSIST  OF:  NUMBER  OF  ENGINES;  TIME  SINCE  LAST 
INSPECTION;  ANALYTICAL  TIME  PERIOD;  FLIGHT  HOUR  UTILIZATION  RATE ; 
TIME  BETWEEN  INSPECTIONS,  INITIAL  TIME  ON  ENGINES;  WEIBULL 
PARAMETERS  (BETA  &  ETA) ;  and  ENGINE  DESIGNATION. 

OUTPUT  CONSISTS  OF;  TOTAL  ENGINE  FLIGHT  HOURS;  CUMULATIVE 
FLIGHT  HOURS;  TIME  TO  FAIL  FOR  EACH  MODE;  and  TOTAL  NUMBER  OF 
FAILURES  BY  ITERATION. 

TO  CONTINUE  INPUT  1  AND  <ENTER>.  TO  QUIT  INPUT  -1  AND  <ENTER> . 
YOUR  CHOICE?  1 


FIGURE  10  SCREEN  1  WEIBRISK 


THIS  IS  THE  DATA  INPUT  SECTION  OF  THE  WEIBULL  RISK  CODE. 
YOU  WILL  BE  ASKED  TO  INPUT  VARIOUS  DATA  IN  A  GIVEN  FORMAT. 
THE  FORMAT  IS  CRITICAL  SO  FOLLOW  INSTRUCTIONS  CAREFULLY. 
TYPE  1  <ENTER>  TO  INPUT  DATA.  TYPE  -1  <ENTER>  TO  QUIT. 


FIGURE  11 


SCREEN  2  WEIBRISK 
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NOW  TYPE  THE  FOLLOWING  : 

25800  DATA  BETA(l) , BETA(2) , . . . ,BETA(J) 

WHERE  BETA(l)  IS  THE  WEIBULL  SLOPE  FOR  THE  FIRST  MODE 
OF  FAILURE,  BETA(2)  IS  THE  WEIBULL  SLOPE  FOR  THE  SECOND 
MODE  OF  FAILURE,  AND  SO  ON  UNTIL  THE  NUMBER  OF  BETA'S 
CORRESPOND  TO  THE  INTEGER  FOR  THE  NUMBER  OF  FAILURE 
MODES.  SEPARATE  BETA'S  WITH  COMMA'S. 

AFTER  THE  LAST  BETA  IS  TYPED,  PRESS  <ENTER>  THEN  TYPE  'RUN  21300' 
AND  <ENTER>. 

Break  in  21200 
Ok 


FIGURE  12  WEIBRISK  INPUT  SAMPLE  SCREEN  1 


NOW  TYPE  THE  FOLLOWING; 

25900  DATA  ETA(l) ,ETA(2) , . . . ,ETA(J) 

WHERE  ETA(l)  IS  THE  CHARACTERISTIC  LIFE  FOR  THE  FIRST 
MODE  OF  FAILURE,  ETA (2)  IS  THE  CHARACTERISTIC  LIFE 
FOR  THE  SECOND  MODE  OF  FAILURE,  AND  SO  ON  UNTIL  THE 
NUMBER  OF  ETA'S  CORRESPOND  TO  THE  INTEGER  FOR  THE 
NUMBER  OF  FALIURE  MODES.  SEPARATE  ETA'S  WITH  COMMA'S. 

AFTER  THE  LAST  ETA  IS  TYPED,  PRESS  <ENTER>  THEN  TYPE  'RUN  22400' 
AND  <ENTER>. 

Break  in  22300 
Ok 
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NOW  TYPE  THE  FOLLOWING  : 

26000  DATA  N1 , T1 , N2 , T2 , . . . ,etc. 

WHERE  N1  IS  THE  NUMBER  OF  ENGINES  AT  TIME  T1 
T1  IS  THE  OPERATING  TIME  OF  ENGINES  N1 
N2  IS  THE  NUMBER  OF  ENGINES  AT  TIME  T2 
T2  IS  THE  OPERATING  TIME  OF  ENGINES  N2 ,  etc. 

USE  ADDITIONAL  LINES  AS  NEEDE  TO  ADD  MORE  DATA. 

WHEN  THE  LAST  DATA  PAIR  IS  ENTERED,  TYPE  'RUN  23400'  AND  <ENTER> . 
Break  in  23300 
Ok 


FIGURE  14  WEIBRISK  INPUT  SAMPLE  SCREEN  3 


NOW  INPUT  THE  NUMBER  OF  DATA  PAIRS  JUST  ENTERED.?  1 

INPUT  THE  TOTAL  NUMBER  OF  ENGINES  IN  THE  SAMPLE  -  NOT  OVER  25.?  5 

INPUT  THE  NUMBER  OF  MONTHS  THAT  THIS  ANALYSIS  WILL  COVER,  i.e., 

36  FOR  THREE  YEARS.?  36 

NEXT,  INPUT  THE  OPERATING  HOURS  PER  MONTH  (AVERAGE)  OVER  THE  TIME 
PERIOD  OF  THIS  ANALYSIS.?  60 

INPUT  THE  INSPECTION  INTERVAL  FOR  THE  ENGINE  OF  THIS  ANALYSIS.? 
2000 

INPUT  THE  NUMBER  OF  FAILURE  MODES  OF  THIS  ANALYSIS.?  1 
INPUT  THE  ENGINE  DESIGNATION.?  TP 

LASTLY,  INPUT  ANY  NUMBER  BETWEEN  -32768  AND  +  32767  TO  SEED 
RANDOM  NUMBER  GENERATOR.  USE  A  DIFFERENT  NUMBER  FOR  EACH 
ANALYSIS.?  9376 


FIGURE  15  WEIBRISK  INPUT  SAMPLE  SCREEN  4 
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operating  time) ,  the  number  of  failure  inodes  input,  and  the 
engine  designation.  All  of  these  are  important  in  that  they 
serve  as  counting  limits  or  analysis  boundaries.  It  is  important 
to  understand  that  if  no  failure  occurs  before  any  engine 
accumulates  the  number  of  operating  hours  equal  to  the  inspection 
interval,  that  engine  is  assumed  to  be  Inspected  and  either 
repaired  or  certified  as  capable  of  going  another  inspection 
interval  in  operating  hours.  In  other  words,  the  engine  is  zero- 
timed  (or  equivalently  certified)  with  regard  to  the  failure 
modes  of  the  analysis.  For  the  next  increment  of  operating  time 
the  engine  is  starting  out  at  zero  time  regardless  of  whether  it 
has  failed  and  been  repaired  or  has  been  inspected  and  certified 
capable  of  reaching  the  next  inspection  without  failure. 

Figures  16  through  18  are  the  series  of  output  screens.  The 
first  data  shown  are  the  inputs  such  that  the  output  can  always 
be  identified  with  regard  to  the  specific  case  run.  Following 
this  initial  output  is  the  data  for  each  engine  grouped  by 
iteration  number.  In  this  case  ten  iterations  were  run  but  only 
the  first  three  are  presented.  The  time  to  failure  is  given  for 
each  failure  mode  and  all  failure  times  are  compared  to  the 
inspection  interval.  If  one  or  more  of  the  failure  tiroes  are 
less  than  the  inspection  interval,  then  there  is  an  indication  of 
a  failure.  Otherwise  the  indication  is  for  no  failure  and  the 
engine  goes  to  inspection.  If  there  were  one  or  more  failures 
the  lowest  number  of  operating  hours,  or  first  failure  time,  is 
chosen  to  be  the  current  failure  time  of  the  engine.  If  there  is 
no  failure  then  the  operating  time  of  the  engine  is  taken  to  be 
the  inspection  interval.  The  code  accounts  for  initial  time  when 
it  makes  its  first  calculations  on  an  engine  and  then  keeps  track 
of  operating  time  as  it  accumulates,  up  to  the  total  time  of  the 
analysis.  From  the  second  calculation  on,  the  new  current  time 
will  be  the  old  current  time  incremented  by  the  time  to  first 
failure  or  the  inspection  interval,  whichever  is  appropriate. 
Failures  are  accounted  for  and  a  running  total  is  maintained  for 
each  iteration  as  well  as  for  each  engine  in  each  iteration. 
Unfortunately,  the  number  of  failures  in  each  failure  mode  is 
lost  in  the  sorting  process  for  determining  the  first,  or  lowest, 
time  to  failure.  It  is  possible  to  read  the  hard  copy  output  and 
to  determine  the  number  of  failures  attributable  to  each  failure 
mode. 


Generally,  a  total  of  at  least  ten  iterations  will  be  run 
and  averages  calculated.  The  number  of  iterations  should  be 
checked,  at  least  initially,  since  the  code  may  have  been 
furnished  with  a  sample  case  that  is  fixed  at  three  iterations. 
This  is  so  that  the  sample  will  run  reasonably  fast  for 
illustrative  purposes.  The  averages  presented  in  the  output  are: 
the  average  number  of  failures  per  iteration  and  the  average 
number  of  failures  per  engine  per  iteration.  Also  presented  is 
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the  total  number  of  failures  for  each  iteration.  Until  the 
number  of  failures  per  failure  mode  is  added,  one  can  always  go 
back  over  the  hard  copy  output  and  determine  which  failure  mode 
is  responsible  for  each  failure.  Unless  there  are  a  vast  number 
of  engines  analyzed  over  a  very  long  time  period,  this  manual 
effort  is  relatively  simple  and  fast.  It  is,  however,  readily 
apparent  that  there  is  a  great  deal  of  data  generated  by  this 
code,  even  when  there  are  only  a  few  engines  and  a  few  failure 
modes . 


5.  SHRTWEIB  and  its  variations  are  reduced  output  versions 
of  WEIBRISK  for  use  where  there  are  many  engines  and  several 
failure  modes.  While  all  the  calculations  and  concepts  of  the 
Monte  Carlo  analysis  are  exactly  the  seune,  the  amount  of  data 
output  is  greatly  reduced.  Since  the  output  is  reduced,  the 
flexibility  is  also  reduced.  If  there  are  many  engines  involved, 
say  250  engines  and  multiple  failure  modes,  it  is  likely  that  one 
would  be  interested  in  first  knowing  the  number  of  failures  to 
expect.  If  this  is  the  case  then  this  is  the  code  to  use  since 
almost  all  of  the  output  is  suppressed  and  only  the  final 
tabulations  of  averages  and  total  failures  is  output.  If  there 
is  a  need  for  failure  modes  identification  and  failure  times,  it 
is  possible  to  output  all  these  values  while  omitting  most  of  the 
explanatory  words  normally  output  by  WEIBRISK.  This  is  done  by 
adding  PRINT  or  LPRINT  statements  to  the  BASIC  program  as 
required  by  the  desired  data  to  be  output. 

The  input  screens  are  identical  to  those  of  WEIBRISK  and 
will  not  be  repeated  here.  The  output  screens  are  very  limited. 
Figures  19  and  20  illustrate  a  case  in  which  failure  times  and 
failure  modes  are  not  required.  These  figures  show  the  SHRTWEIB 
output  screens  for  the  same  case  as  show  for  WEIBRISK  (figures  16 
through  18) .  Only  the  summaries  of  each  data  pair  are  shown  in 
the  output,  along  with  the  input  data  to  be  sure  that  the 
particular  case  can  be  identified.  The  totals  are  kept  per 
iteration  as  in  WEIBRISK  and  the  summary  at  the  end  is  exactly 
the  same  as  the  WEIBRISK  summary. 

This  code  has  been  used  in  many  different  versions,  each  one 
adjusted  for  a  particular  problem  application.  SHRTWEIB  is 
basically  a  short  version  of  WEIBRISK  and  is  virtually  identical 
except  for  the  output  format.  Knowing  this  ,  it  is  easy  to  see 
why  there  can  be  so  many  variations,  each  one  called  SHRTWEIB. 
Currently  there  are  two  main  versions,  SHTWEIBl  and  SHTWEIB2. 

Only  one  has  been  presented  here  in  the  interest  of  brevity  and 
because  it  is  so  simple  to  make  any  necessary  change  in  output 
format.  Anyone  with  a  fundamental  knowledge  of  the  Basic  language 
could  make  the  necessary  modifications  to  SHRTWEIB  to  fit  a 
specific  problem.  Keep  in  mind  that  it  may  be  more  prudent 
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WEIBULL  RISK  ANALYSIS 
A  MONTE  CARLO  SIMULATION 
-  WEIBRISKl 


ENGINE:  TP 


BETA  VALUES; 

3.5 

ETA  VALUES: 

1741 

DATA  PAIRS: 

NO.  ENGS.  INIT.  TIME 

5  100 


FIGURE  16  WEIBRISK  OUTPUT  SCREEN  1 


MAXIMUM  OPERATING  HOURS  PER  ENGINE  FOR  THIS  ANALYSIS  IS  2160  HRS. 
INSPECTION  INTERVAL  FOR  THIS  ANALYSIS  IS  1500  HOURS 
TIME  DURATION  OF  THIS  ANALYSIS  IS  36  MONTHS 
UTILIZATION  RATE  IS  60  HOURS  PER  ENGINE  PER  MONTH 


FIGURE  17  WEIBRISK  OUTPUT  SCREEN2 
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h****************  data  pair  number  1  ***************** 

*  *  *  ITERATION  NUMBER  1  *  *  * 

ENGINE  NUMBER  1 

1402.271 

TIME  ON  ENGINE  IS  1402.271 
1585.924 

TIME  ON  ENGINE  IS  2160 

CUMULATIVE  FAILURES  FOR  THIS  PAIR  ARE  1 
NUMBER  OF  FAILURES  FOR  ENGINE  1-1 

ENGINE  NUMBER  2 

1378.449 

TIME  ON  ENGINE  IS  1378.449 
1185.871 

TIME  ON  ENGINE  IS  2160 

CUMULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  2 
NUMBER  OF  FAILURES  FOR  ENGINE  2=1 

ENGINE  NUMBER  3 

2131.911 

TIME  ON  ENGINE  IS  1500 
1039.275 

TIME  ON  ENGINE  IS  2160 

CUMULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  1 
NUMBER  OF  FAILURES  FOR  ENGINE  3=0 

ENGINE  NUMBER  4 

1340.697 

TIME  ON  ENGINE  IS  1340.697 
2215.43 

TIME  ON  ENGINE  IS  2160 

CUMULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  2 
NOTiBER  OF  FAILURES  FOR  ENGINE  4=1 

ENGINE  NUMBER  5 

1297.056 

TIME  ON  ENGINE  IS  1297.056 
1505.346 

TIME  ON  ENGINE  IS  2160 

CUMULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  3 
NUMBER  OF  FAILURES  FOR  ENGINE  5-1 


TOTAL  FAILURES  ITERATION  NUMBER  1-3 


FIGURE  18  WEIBRISK  OUTPUT  SCREEN  3 
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to  modify  WEIBRISK  if  the  final  configuration  will  be  closer 
to  that  output. 

6.  ETACALC  is  a  short  code  which  will  calculate  *the 
characteristic  life  (ETA)  when  the  value  of  BETA  is  known  or 
the  failure  mode  is  )aiown  and  a  'good  approximation'  of  BETA 
is  available.  Figure  21  is  the  input  screen  which  first 
calls  for  BETA  and  then  the  number  of  failures  for  which 
failure  data  is  available.  Such  data  makes  up  the  next  line 
of  input  and  consists  of  alternate  values  of  the  number  of 
non-failed  parts  in  the  seuaple  and  the  operating  time  on 
these  parts.  Again,  this  is  data  from  a  histogram  of  the 
sample  population.  If  there  were  no  failures,  the  value  of 
'T'  should  be  input  as  one  (1) .  This  assumes  that  there  is 
a  failure  imminent  and  therefore  gives  a  conservative,  or 
lower,  value  of  ETA.  Zero  cannot  be  used  since  it  would 
result  in  a  'division  by  zero'  error.  It  is  also  required 
to  input  the  number  of  data  pairs  entered  for  use  as  a 
counting  reference. 

For  reference  purposes,  the  output  screen  of  figure  22 
presents  the  data  pairs  entered  and  used  as  well  as  the 
calculated  value  of  ETA.  The  value  of  BETA  used  in  the 
calculation  is  also  presented.  This  code  runs  very  fast  and 
is  extremely  useful  in  calculating  the  sensitivity  of  ETA 
against  the  value  of  BETA  or  the  number  of  failures.  For 
each  value  of  BETA  input  there  will  be  a  different  value  of 
ETA.  If  the  failure  mode  is  known  one  can  be  reasonably 
sure  that  BETA  will  fall  between  the  limits  that  are 
historically  typical  for  that  failure  mode.  For  example, 
low  cycle  fatigue  historically  has  a  value  for  BETA  that 
lies  between  2  and  5.  While  there  are  no  guaranteed  values 
or  ranges,  there  are  historical  trends  that  are  reasonable 
starting  points  when  there  is  a  lack  of  detail  about 
specific  failures. 

7.  CWFIWTBE  t  cWFlHTpy  are  two  codes  that  have  been 
grouped  together  for  convenience.  The  first  code  calculates 
the  confidence  interval,  or  range  of  expected  values,  for 
both  Beta  and  Eta.  The  user  chooses  the  confidence  level 
(0.90,  0.95,  or  0.99)  desired  as  well  as  the  values  of  Beta 
and  Eta.  These  are  input  in  response  to  specific  prompts  on 
the  screen.  The  last  prompt  asks  for  the  number  of  failures 
that  were  used  to  calculate  these  vales  of  Beta  and  Eta. 
Figure  23  shows  the  input  for  this  code.  Finally,  the 
ranges  of  expected  values  of  these  parameters  are  given  and 
are  shown  in  figure  24  along  with  the  input  values  and  the 
chosen  confidence  level.  These  ranges,  or  confidence 
intervals,  are  measurements  of  precision  in  estimating  the 
parameters.  The  confidence  interval  almost  always  contains 
the  input  value  of  the  parameter  and  the  magnitude  of  the 
range  is  an  Indication  of  how  far  from  the  true  value  an 
estimate  of  Beta  or  Eta  might  deviate.  Strictly  speaking, 
this  methodology  applies  only  to  the  case  where  all  units  or 
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WEIBULL  RISK  ANALYSIS 
A  MONTE  CARLO  SIMULATION 
SHRTWEIB2 


ENGINE:  TP 


BETA  VALUES: 
3.5 


ETA  VALUES: 
1741 


DATA  PAIRS: 

NO.  ENGS.  INIT.  TIME 

5  100 


MAXIMUM  OPERATING  HOURS  PER  ENGINE  FOR  THIS  ANALYSIS  IS  2160  HRS. 
INSPECTION  INTERVAL  FOR  THIS  ANALYSIS  IS  1500  HOURS 
TIME  DURATION  OF  THIS  ANALYSIS  36  MONTHS 
UTILIZATION  RATE  IS  60  HOURS  PER  ENGINE  PER  MONTH 


FIGURE  19  SHRTWEIB  OUTPUT  SCREEN  1 
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******************  data  pair  number  1  ****************** 


AVERAGE  NUMBER  FAILURES  10  ITERATIONS  «  2.1 


NUMBER 

OF 

FAILURES 

IN 

ITERATION 

1 

3 

NUMBER 

OF 

FAILURES 

IN 

ITERATION 

2 

0 

NUMBER 

OF 

FAILURES 

IN 

ITERATION 

3 

- 

3 

NUMBER 

OF 

FAILtJRES 

IN 

ITERATION 

4 

= 

6 

NUMBER 

OF 

FAILURES 

IN 

ITERATION 

5 

- 

1 

NUMBER 

OF 

FAILURES 

IN 

ITERATION 

6 

= 

2 

NUMBER 

OF 

FAILURES 

IN 

ITERATION 

7 

= 

3 

NUMBER 

OF 

FAILURES 

IN 

ITERATION 

8 

B 

0 

NUMBER 

OF 

FAILURES 

IN 

ITERATION 

9 

= 

4 

NUMBER 

OF 

FAILURES 

IN 

ITERATION 

10  =  5 

AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  1  IS  . 2 

AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  2  IS  . 5 

AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  3  IS  1 

AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  4  IS  .5 

AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  5  IS  .5 


FIGURE  20  SHRTWEIB  OUTPUT  SCREEN  2 
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PROGRAM  ETACALC 


DATA  INPUT  -  INPUT  DATA  AS  INSTRUCTED 

TYPE  IN  THE  FOLLOWING  DATA  STATEMENT  TO  INPUT  THE  WEIBULL  SLOPE 
'BETA'  AND  THE  TOTAL  NUMBER  OF  FAILURES; 

1700  DATA  B,T 

WHERE  'B'  IS  BETA  AND  'T'  IS  THE  TOTAL  NUMBER  OF 
FAILURES.  IF  THERE  ARE  NO  FAILURES,  INPUT  1  FOR  T. 

THEN  TYPE  IN  THE  FOLLOWING  STATEMENT  TO  INPUT  THE  DATA  PAIRS; 
1800  DATA  N1,T1,N2,T2, . . . ,etc. 

WHERE  N1  IS  THE  NUMBER  OF  UNITS  AT  TIME  Tl,  AND 
T1  IS  THE  OPERATING  TIME  ON  UNITS  Nl. 

N2  IS  THE  NUMBER  OF  UNITS  AT  TIME  T2 ,  AND 
T2  IS  THE  OPERATING  TIME  ON  UNITS  N2 ,  etc. 

WHEN  ALL  DATA  HAS  BEEN  ENTERED,  TYPE  'RUN  100'  AND  <ENTER>. 
Break  in  60 
Ok 


FIGURE  21  ETACALC  INPUT  SCREEN 


CALCULATION  OF  THE  CHARACTERISTIC  LIFE  ETA 
BASED  ON  KNOWN  FAILURES  AND  WEIBULL  SLOPE  BETA 


DATA  PAIRS;  (NO.  OF  ENGS.  AND  TIME  ON  ENGS.) 

40,  19138,  48,  41578,  54,  59636,  44,  78536,  38,  96564, 

22,  111132,  48,  130206,  94,  145124,  38,  164920,  38,  183006, 
29,  201298,  39,  220112, 

THE  CALCULATED  VALUE  OF  ETA  IS  142914.8 

THE  VALUE  OF  BETA  USED  IS  3 


FIGURE  22  ETACALC  OUTPUT  SAMPLE 
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CONFIDENCE  INTERVAL  CALCULATION 
FOR 

BETA  -  ETA  -  TIME  TO  FIRST  FAILURE 


WHICH  CONFIDENCE  LEVEL  (0.99,  0.95,  OR  0.90)  DO  YOU  WISH  TO  USE 
TO  ESTABLISH  A  CONFIDENCE  INTERVAL  AROUND  BETA  AND  ETA?  .9 


WHAT  IS  THE  ESTABLISHED  VALUE  OF  BETA?  3 
WHAT  IS  THE  ESTABLISHED  OF  ETA?  2000 

WHAT  NUMBER  OF  FAILURES  ARE  THESE  VALUES  OF  BETA  AND  ETA  BASED 
ON?  10 


FIGURE  23  CNFINTBE  INPUT  SCREEN 


CONFIDENCE  INTERVAL  CALCULATION 
FOR 

BETA  -  ETA  -  TIME  TO  FIRST  FAILURE 


*************************************************************** 


THE  CONFIDENCE  INTERVALS,  OR  MEASUREMENT  OF  THE  PRECISION  OF  THE 
ESTIMATION  OF  BETA  AND  ETA  ARE: 


1.999427  <«  BETA  <-  4.501291 
1667.089  <«  ETA  <«  2399.392 

FOR  BETA  AND  ETA  ESTIMATES  OF  3  AMD  2000  AND  A  CONFIDENCE  LEVEL 
OF  .9 


******** 


FIGURE  24  CNFINTBE  OUTPUT  SCREEN 
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parts  in  a  particular  sample  have  been  test  or  run  to 
failure. 

The  next  option  asks  if  the  user  would  like  to 
calculate  the  confidence  interval  for  the  time  to  first 
failure.  Choosing  this  option  automatically  loads  the 
appropriate  code  without  returning  to  the  Heibull  Executive 
Routine  (WEIBER) .  Here  you  are  asked  for  all  the  same  type 
of  input  as  before  (Beta,  Eta,  and  number  of  failures)  as 
well  as  the  estimated  or  calculated  value  of  time  to  first 
failure.  The  input  screen  is  shown  in  figure  25.  As  in  the 
previous  case,  the  range  of  expected  values  for  time  to 
first  failure  is  given  and  for  record  purposes  the  estimated 
value.  Again,  this  range  is  a  measure  of  the  precision  in 
estimating  the  time  to  first  failure  and  is  presented  at  a 
ninety  percent  confidence  level.  In  this  case  the  ninety 
percent  confidence  level  is  constant  and  is  not  user 
selectable . 

8.  RELIABTY  t  CKFINREL  are  two  codes  which  are 
grouped  together  for  convenience  as  were  the  previous  two 
codes.  The  first  code  (RELIABTY)  calculates  the  reliability 
at  any  given  time.  The  required  input  is  given  at  screen 
prompts  and  consists  of  Beta,  Eta  and  the  time  at  which  the 
reliability  is  desired.  These  are  shown  in  figure  26.  The 
output  consists  of  the  reliability,  the  probability  of 
failure,  and  the  time  at  which  they  were  calculated.  The 
output  is  shown  in  figure  27.  As  in  the  previous  two  codes, 
the  user  is  queried  whether  it  is  desired  to  calculate  the 
confidence  interval  for  reliability.  If  the  answer  is  yes 
(Y)  the  next  code  (CNFINREL)  is  automatically  loaded  so 
that  calculations  can  be  made  and  the  results  presented  on 
the  screen  as  well  as  on  the  printer  for  record  purposes. 
Input  data  are  similar:  (1)  Beta,  (2)  Eta,  (3)  time  at  which 
reliability  is  calculated,  and  (4)  the  number  of  failures 
that  Beta  and  Eta  are  based  on.  The  input  is  shown  in 
figure  28.  The  confidence  level  is  also  selected  from  0.90, 
0.95,  or  0.99.  These  codes  are  grouped  together  and  run  in 
a  similar  manner  as  the  previous  two  codes. 

9.  BETAHI8T  is  a  code  which  automatically  provides  a 
hard  copy  of  reference  values  of  Beta  for  various  modes  of 
failure.  It  is  for  use  where  there  is  insufficient  data  to 
calculate  Beta  from  actual  failures,  either  through  code 
number  one  or  graphically.  This  code  is  intended  to  be 
constantly  updated  and  to  be  a  comprehensive  data  base  in 
the  future.  A  copy  of  the  hard  copy  printout  is  shown  as 
Figure  29. 


10.  PWAWEIBL  is  a  code  that  has  essentially  the  same 
functions  as  SUSWEIBL  (code  number  one) ,  plus  the  capability 
of  determining  the  maximum  likelihood  values  of  Beta  and 
Eta.  The  maximum  likelihood  values  of  Beta  and  Eta  are 
those  values  which  maximize  the  'likelihood'  of  obtaining 
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CONFIDENCE  INTERVAL  CALCULATION 
FOR 

TIME  TO  FIRST  FAILURE 

VERSION  OF  03  OCT  1986 

VALUE  OF  BETA  USED  IS:  3 
VALUE  OF  ETA  USED  IS:  2000 

NUMBER  OF  FAILURES  BETA  AND  ETA  ARE  BASED  ON  IS:  10 

CONFIDENCE  INTERVAL  CALCULATION 
FOR 

TIME  TO  FIRST  FAILURE 

VERSION  OF  03  OCT  1986 

WHAT  IS  THE  VALUE  OF  BETA  TO  BE  USED  IN  THIS  ANALYSIS?  3 

WHAT  IS  THE  VALUE  OF  ETA  TO  BE  USED  IN  THIS  ANALYSIS?  2000 

WHAT  NUMBER  OF  FAILURES  ARE  THESE  VALUES  OF  BETA  AND  ETA  BASED 
ON?  10 

WHAT  IS  THE  ESTIMATED  (CALCULATED)  VALUE  OF  TIME  TO  FIRST 
FAILURE?  1200 

THE  CONFIDENCE  INTERVAL,  OR  MEASUREMENT  OF  PRECISION  OF  THE 
ESTIMATE  OF  THE  TIME  TO  FIRST  FAILURE  IS: 

332.9696  <«  TIME  TO  FIRST  FAILURE  <«  1336.49 

THE  ESTIMATED  VALUE  OF  TIME  TO  FIRST  FAILURE  IS:  1200 
FIGURE  25  CNFINTBE  INPUT  &  OUTPUT  SCREENS 
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RELIABILITY 

CALCULATES  RELIABILITY  AS  A  FUNCTION  OF  TIME 

INPUT  THE  VALUE  OF  BETA  (WEIBULL  SLOPE)  TO  USE?  3 

INPUT  THE  VALUE  OF  ETA  (CHARACTERISTIC  LIFE)  TO  USE?  2000 

INPUT  THE  TIME  FOR  WHICH  YOU  WANT  THE  RELIABILITY  CALCULATED? 
1200 

FIGURE  26  RELIABTY  INPUT  SCREEN 


RELIABILITY 

CALCULATES  RELIABILITY  AS  A  FUNCTION  OF  TIME 


THE  RELIABILITY  AT  TIME  1200  IS  .8057353 

THE  PROBABILITY  OF  FAILURE  AT  THIS  TIMJ  IS  .1942647 


THE  VALUES  OF  BETA  AND  ETA  USED  WERE  3  AND  2000 


DO  YOU  WISH  TO  CALCULATE  THE  RELIABILITY  FOR  ANOTHER  TIME  (ANSWER 
Y  OR  N)? 


DO  YOU  WISH  TO  CALCULATE  THE  CONFIDENCE  INTERVAL  FOR  RELIABILTY 
(ANSWER  Y  OR  N)?  Y 


FIGURE  27  RELIABTY  OUTPUT  SCREEN 
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CONFIDENCE  INTERVAL  CALCUALTION 
FOR 

RELIABILITY 
VERSION  OF  24  FEB  1987 


INPUT  THE  VALUE  OF  BETA  (WEIBULL  SLOPE)  TO  USE?  3 

INPUT  THE  VALUE  OF  ETA  (CHARACTERISTIC  LIFE)  TO  USE?  2000 

INPUT  THE  TIME  FOR  WHICH  YOU  WANT  THE  CONFIDENCE  INTERVAL 
CALCULATED?  1200 

INPUT  THE  SAMPLE  SIZE  ON  WHICH  BETA  AND  ETA  ARE  BASED?  10 

WHICH  CONFIDENCE  LEVEL  (0.99,  0.95,  OR  0.90)  DO  YOU  WISH  TO  USE 
TO  ESTABLISH  A  CONFIDENCE  INTERVAL  AROUND  THE  RELIABILITY?  .9 


.5407021  <=  RELIABILITY  <=  .9269299 

WHERE  RELIABILITY  IS  .8057353  FOR  BETA  «  3,  ETA  =  2000,  AND 
TIME  *  1200 


FIGURE  28  CNFINREL  INPUT  AND  OUPUT  SCREENS 


32 


NADC-89019-60 


*****  VALUES  OF  BETA  (WEIBULL  SLOPE)  FROM  HISTORICAL  TRENDS  **** 

* 

BEARINGS,  GENERAL  FAILURES.... 

* 

CRACK,  FiANGE . 

* 

EROSION,  TURBINE  VANE . 

• 

* 

LCF ,  COMPRESSOR  CASE . 

* 

LCF^  COMPRESSOR  DISK . 

T  f  .  3 . 0 

* 

LCF^  NOZZLE  BEARINGS . 

* 

lcf)  general . . . 

* 

PERFORMANCE  DETERIORATION . 

* 

ROTATING  STRUCTURE . 

* 

STATIC  STRUCTURE . 

* 

THERMAL  LCF,  COMBUSTOR . 

•  •  •  •  3  •  0 

* 

INDEPENDENT  OF  TIME 

* 

INGESTION  (FOD)  AND  MISUSE 

* 

INSUFFICIENT  REDUNDENCY 

it 

MAINTENANCE  ERRORS 

* 

MIXTURE  OF  PROBLEMS 

* 

ORIGINAL  DESIGN  DEFFICIENCIES 

* 

RANDOM  rATT.URFS . 

-  -  -  - 1 .  n 

* 

SLOPES  LESS  THAN  1.0  ARE  INFANT  MORTALITY  WHERE  RELIABILITY 

WILL  INCREASE  WITH  AGE.  ALSO  INDICATES  A  QUALITY  PROBLEM  SUCH  AS 

MISASSEMBLY  USUALLY  HAS  A  VAUJE  AROUND  0.5. 

★ 

SLOPES  GREATER  THAN  1.0  ARE  GENERALLY  WEAROUT  FOR  ONE  REASON  OR 

ANOTHER. 

* 

A  SLOPE  OF  2.5  IS  USUALLY  GRADUAL  WEAROUT. 

* 

A  SLOPE  OF  3.44  APPROXIMATES  A 

BELL  SHAPED 

CURVE  (NORMAL 

DISTRIBUTION) . 

* 

A  SLOPE  GREATER  THAN  ABOUT  4.5 

ARE  USUALLY 

RAPID  WEAROUT  (BRICK 

WALL) . 

FIGURE  29  BETAHIST  OUTPUT  SCREEN 
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the  observed  data.  They  are  mathematically  most  likely  to 
yield  the  failure  data  used  to  'calculate'  Beta  and  Eta. 

The  code  also  allows  the  input  of  a  histogram  or  failure  and 
suspended  data,  whichever  is  available  and  more  accurate  or 
complete.  The  code  gives  the  same  output  as  the  SUSWEIBL 
code,  except  that  there  are  no  instantaneous  failure  rate 
data  or  B10/B50  lives  presented.  If  all  of  this  data  is 
desired  it  is  recommended  that  both  codes  be  run  to  obtain 
the  desired  answers  as  well  as  to  compare  the  common  values 
obtained.  Be  sure  that  the  input  data  is  the  same  and  the 
same  number  of  failures  are  used.  Input  and  out  put  screens 
are  shown  as  figures  30  through  33. 

11.  BIOWEIBL  is  another  version  of  the  previously 
described  Monte  Carlo  analysis.  This  version  was 
specifically  optimized  to  run  a  maximum  number  of  units  or 
parts  failing  under  a  single  failure  mode.  This  code  should 
be  used  only  after  the  dominant  failure  mode  has  been 
determined  by  using  code  four  (WEIBRISK) .  The  purpose  of 
this  code  is  to  determine  how  many  failures  to  expect  over 
an  extended  period  of  time,  such  as  five  to  ten  years,  out 
of  a  fleet  of  up  to  1100  or  more  engines.  The  input  is  the 
same  as  for  the  WEIBRISK  and  SHRTWEIB  codes  (four  and  five) 
and  the  output  is  the  same  as  in  SHRTWEIB  (c(^e  five)  - 
total  failures  and  averages.  It  is  very  important  to  input 
data  correctly  and  accurately  since  the  code  reguires  an 
extended  time  to  run  when  the  number  of  parts  or  engines 
approaches  the  maximum  of  over  1100.  Typically  on  an  ITT- 
XTRA  it  takes  about  forty-five  minutes  to  run  1149  engines, 
ten  years,  sixty  hours  per  month,  and  to  make  a  total  of  ten 
iterations.  Since  the  input  is  identical  with  the  previous 
Monte  Carlo  codes  and  the  output  is  the  same  as  SHTWEIB2,  no 
input  or  output  screens  are  illustrated  here.  If  the 
program  will  not  run  because  of  an  out  of  memory  error,  go 
back  an  reduce  the  number  of  engines  in  the  analysis.  Also 
remember  that  the  number  of  failure  modes  should  not  exceed 
one  in  order  to  maximize  the  number  of  engines  that  can  be 
run. 


12.  WBIBAYE8  Is  a  code  that  is  used  when  there  is 
insufficient  failure  data  to  calculate  critical  life  for  a 
failure  mode  that  is  kno%m  to  exist.  Typically  the  failure 
mode  will  give  some  idea  as  to  the  Weibull  slope  Beta, 
either  from  past  history  or  from  code  nine  -  BETAHIST.  It 
is  for  this  reason  that  it  is  important  to  record  all  values 
of  Beta  and  their  corresponding  failure  modes.  The  WEIBAYES 
input  screen,  not  shown,  asks  if  the  value  of  the 
characteristic  life  Eta  is  known.  If  Eta  is  not  known  the 
user  will  be  directed  to  go  to  the  ETACALC  code  (code  six) 
to  calculate  a  best  estimate  of  Eta.  Strictly  speaking  code 
number  six  is  the  WEIBAYES  calculation  of  the  value  of 
'ETA'.  The  ffEIBAYES  code  uses  that  value  of  'ETA'  to 
calculate  a  user  designated  value  of  critical  life.  If  Eta 
is  known,  or  upon  returning  from  code  six,  input  data  will 
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WEI BULL  PARAMETER  CALCULATION 
PRATT  &  WHITNEY  AIRCRAFT  -GPD  -  UTC 
AS  IMPROVED  BY  CODE  6052 
NAVAL  AIR  DEVELOPMENT  CENTER 
WARMINSTER,  PA  18974 


ARE  YOU  INPUTTING  A  HISTOGRAM  OF  SUSPENSIONS? 


ANSWER  Y  OR  N? 


FIGURE  30  PWAWEIBL  INTRODUCTORY  SCREEN 


INPUT  THE  FAILURE  DATA  AND  SUSPENSIONS  WITH  DECIMAL. . .USE  -99999 
TO  INDICATE  THE  END  OF  THE  DATA  (NEGATIVES  INDICATES  SUSPENSIONS, 
UNLESS  A  HISTOGRAM  WAS  INPUT) 


?  100 
?  250 
?  310 
?  500 
?  675 
?  -99999 


FIGURE  31  PWAWEIBL  INPUT  SCREEN 
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POINT 

DATA 

ORDER 

MEDIAN  RANK 

1 

100 

1 

.1296296 

2 

250 

2 

.3148148 

3 

310 

3 

.5 

4 

500 

4 

.6851852 

5 

675 

5 

.8703703 

BETA  =  1.423798 

ETA  «  429.7823 

DO  YOU  WISH  TO 

DA  A  MAXIMUM  LIKELIHOOD 

ESTIMATION? 

ANSWER  Y  OR  N? 

Break  in  1100 

Ok 

FIGURE  32 

PWAWEIBL 

OUTPUT  SCREEN  1 

PLEASE  BE 

PATIENT . 

.IT'S  ITERATING 

MAXIMUM  LIKELIHOOD  ESTIMATES  FOLLOW 

BETA  «  1.922156  ETA  =  414.6144 

DO  YOU  HAVE  ANOTHER  ANALYSIS  TO  DO? 
ANSWER  Y  OR  N?  N 


FIGURE  33  PWAWEIBL  OUTPUT  SCREEN  2 


36 


NADC-89019-60 


be  requested  next  in  the  form  of  data  statements  as  shown  in 
figure  34.  The  first  input  requested  is  the  B.l  life  (or 
other  value  (such  as  B.OOl,  BIO,  etc.)  or  percent  of  the 
population  allowed  to  fail.  If  the  part  being  investigated 
is  a  critical  part,  such  as  a  disk,  then  the  input  should  be 
a  very  low  B-life.  Any  number  can  be  input  up  to  0.999999, 
which  is  equivalent  to  99.9999%.  If  the  desired  life  was 
the  BIO  life  then  the  input  would  be: 

4000  DATA  0.10 

The  next  input  is  the  assumed  value  of  Beta  and  the 
calculated  Eta.  This  input  would  appear  as: 

4040  DATA  3,1000 

if  Beta  were  three  and  Eta  were  1000. 

The  code  now  calculates  the  percent  allowed  to  fail  and 
the  equivalent  number  of  hours  to  arrive  at  that  percent 
failures.  The  output  screen  is  shown  in  Figure  35  and 
contains  a  short  explanation  of  the  answer.  It  also  gives 
the  user  an  opportunity  to  make  another  calculation  if  the 
answer  is  unsuitable.  This  code  is  especially  useful  for 
critical  life  parts  where  even  one  failure  can  be  considered 
catastrophic.  Requirements  can  be  determined  for  parts  life 
improvement  to  achieve  a  desired  specific  life  in  terms  of 
an  allowed  failure  percentages. 

13.  ZOFAIL8B  is  a  code  that  provides  the  definition 
of  a  test  plan  that  will  demonstrate  that  a  redesigned  part 
has  either  eliminated  or  substantially  improved  a  known 
failure  mode.  The  resulting  plan,  when  passed,  represents 
substan^ation  that  an  engineering  change  or  fix  has  solved 
the  problem  presented  by  the  failure  mode.  This  particular 
test  plan  generation  is  for  those  cases  where  there  will  be 
some  fixed  number  of  test  units,  each  tested  for  a  certain 
number  of  hours  or  cycles,  without  any  failures.  If  there 
is  a  failure  prior  to  each  test  unit  completing  the  required 
number  of  hours,  the  test  is  failed.  Zero  failures  means 
the  statistical  requirement  has  been  met  for  substantiation 
of  the  fix. 

The  inputs  for  this  code  are:  (1)  the  Welbull  slope 
Beta,  (2)  the  characteristic  life  Eta,  and  (3)  an  assumed 
number  of  test  hours  that  each  test  article  must 
successfully  complete.  The  input  screen  is  shown  as  figure 
36.  The  code  first  calculates  the  ratio  of  the  test  hours 
to  the  characteristic  life  and  then  presents  a  table  on  the 
screen  from  which  the  number  of  required  test  articles  can 
be  determined.  See  figures  37  and  38.  The  upper  limit  of 
test  articles  has  been  chosen  as  fifty  and  the  lower  limit 
is  a  statistical  limit  of  three.  Since  the  table  can  still 
indicate  the  requirement  to  test  a  very  large  and 
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WEIBAYES  ANALYSIS 
WHEN  HEIBULL  PLOTS  ARE  IMPOSSIBLE 
DUE  TO  A  LACK  OF  FAILURE  DATA 


DATA  INPUT - ENTER  THE  FOLLOWING: 

4000  DATA  BX 

WHERE  BX  «  THE  PERCENT  OF  THE  POPULATION  ALLOWED 
TO  FAIL,  i.e.,  0.001  FOR  B.l  LIFE 
DO  NOT  USE  1.0  OR  ANY  PERCENT  >  0.999999 

4040  DATA  B,H 

WHERE  B  =  THE  ASSUMED  VALUE  OF  THE  WEIBULL  SLOPE 
'BETA'  AND  H  =  THE  CALCULATED  VALUE  OF  THE 
CHARACTERISTIC  LIFE  'ETA' 

WHEN  ALL  DATA  IS  ENTERED,  INPUT  <RUN  1849>  TO  CONTINUE. 

Break  in  1846 
Ok 


FIGURE  34  WEIBAYES  INPUT  SCREEN 


LIFE  CALCULATIONS  FOR  WEIBAYES 


PERCENT  OF  POPULATION  ALLOWED  TO  FAIL  =  99.9999  (CALCULATED 
VALUE)  . 

THE  CALCULATED  LIFE  USING  THE  INPUT  VALUE  OF  BX  IS  EQUAL  TO 
2398.745 

IF  THIS  VALUE  IS  SMALLER  THAN  ACCETABLE  THEN  THE  CALCULATED  VALUE 
OF  ETA  (CHARACTERISTIC  LIFE)  IS  TOO  SMALL.  THIS  MAY  BE  DUE  TO  A 
LACK  OF  SUFFIECIENT  OPERATING  TIME  USED  IN  THE  CALCULATION  OF 
ETA.  INSUFFICIENT  DATA  INDICATES  A  NEED  TO  EXERCISE  CONSERVATISM 
UNTIL  ENOUGH  OPERATIONAL  EXPERIENCE  IS  OBTAINED  WITHOUT  A  FAILURE 
(OR  FEW  FAILURES)  SUCH  THAT  A  HIGHER  VALUE  OF  ETA  IS  CALCULATED. 

BETA  USED  WAS  3  ETA  USED  WAS  1000. 


FIGURE  35  WEIBAYES  OUTPUT  SCREEN 


38 


NADC-89019-60 


ZERO  FAILURE  TEST  PLAN  GENERATION 
NUMBER  OF  TEST  UNITS  AND  TEST  TIME  FOR  EACH 
VERSION  17  MAY  1987 


THIS  CODE  CALCULATES  THE  STATISTICAL  REQUIREMENT  FOR 
SUBSTANTIATION  TESTING  THAT  DEMONSTRATES  A  REDESIGNED  PART  / 
SYSTEM  HAS  ELIMINATED  OR  SIGNIFICANTLY  IMPROVED  A  KNOWN  FAILURE 
MODE  -  BETA  AND  ETA  ARE  ASSUMED  TO  BE  KNOWN. 

THE  RESULTING  TEST  PLAN  GIVES: 

1.  THE  REQUIRED  NUMBER  OF  TEST  UNITS 

2.  TEST  TIME  TO  BE  ACCUMULATED  ON  EACH  UNIT 

FIFTY  (50)  IS  THE  UPPER  LIMIT  OF  TEST  UNITS  AND  TEST  TIME 
EXPRESSED  AS  A  FRACTION  OF  THE  CHARACTERISTIC  LIFE,  ETA. 

RATIO  =  (TEST  TIME) / (CHARACTERISTIC  LIFE) 

OR 

TEST  TIME  =  RATIO  *  CHARACTERISTIC  LIFE 

INPUT  THE  WEIBULL  SLOPE  BETA  (BETA  <=5.0  ONLY)  FOR  THE  FAILURE 
MODE? 


FIGURE  36  20FAILSB  INPUT  SCREEN  1 


USUALLY  A  TEST  PROGRAM  IS  DRIVEN  BY  A  PRACTICAL  LEVEL  OF  TEST 
TIME  WHICH  IS  VERY  EXPENSIVE. 

MAKE  AN  ESTIMATE  OF  A  REASONABLE  TEST  TIME,  REORGANIZING  THAT  AT 
LEAST  THREE  (3)  UNITS  OR  MORE  MUST  EACH  BE  TESTED  FOR  THAT  TIME 

INPUT  TEST  HOURS?  1500 

RATIO  =  .75  BETA  =2.5 

NOW  CHOOSE  THE  NEAREST  VALUE  OF  THE  WEIBULL  SLOPE  BETA  AND  RATIO 
OF  TEST  TIME  TO  THE  CHARACTERISTIC  LIFE  THAT  IS  IN  THE  FOLLOWING 
TABLE.  MAKE  A  NOTE  OF  THE  SAMPLE  SIZE  FROM  THE  TABLE. 


PRESS  ENTER  TO  CONTINUE. 


FIGURE  37  ZOFAILSB  INPUT  SCREEN  2 
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RATIO 

0.5 

1.0 

1.5 

2.0 

2.5 

3.0 

3.5 

4.0 

4.5 

5.0 

0.01 

24 

** 

** 

** 

** 

** 

** 

** 

** 

** 

0.02 

17 

** 

**  _ 

** 

** 

** 

** 

** 

** 

** 

0.03 

14 

** 

** 

** 

** 

** 

** 

** 

** 

** 

0.04 

12 

** 

** 

** 

** 

** 

** 

** 

** 

** 

0.05 

11 

47 

** 

** 

** 

** 

** 

** 

** 

** 

0.06 

10 

39 

** 

** 

** 

** 

** 

** 

** 

** 

0.07 

9 

33 

** 

** 

** 

** 

** 

** 

** 

** 

0.08 

9 

29 

** 

** 

** 

** 

** 

** 

** 

** 

0.09 

8 

26 

** 

** 

** 

** 

** 

** 

** 

** 

0.10 

8 

24 

** 

** 

** 

** 

** 

** 

** 

** 

0.20 

6 

12 

26 

** 

** 

** 

** 

** 

** 

** 

0.30 

5 

8 

15 

26 

47 

** 

** 

** 

** 

** 

0.40 

4 

6 

10 

15 

23 

36 

** 

** 

** 

** 

0.50 

4 

5 

7 

10 

14 

19 

27 

37 

** 

** 

0.60 

3 

4 

5 

7 

9 

11 

14 

18 

23 

30 

0.70 

3 

4 

4 

5 

6 

7 

9 

10 

12 

14 

0.80 

3 

3 

4 

4 

5 

5 

6 

6 

7 

8 

0.90 

3 

3 

3 

3 

3 

4 

4 

4 

4 

4 

1.00 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

**  INDICATES  SAMPLE  SIZE  EXCEEDS  50-INPUT  99  FOR  SAMPLE  SIZE 
BETA  =2.5  RATIO  =  .75 

PRINT  SCREEN  FOR  HARD  COPY  OF  THE  TABLE.  INPUT  THE  SAMPLE  SIZE 
FROM  THE  TABLE?  6 


FIGURE  38  20FAILSB  TABLE 


SAMPLE  SIZE  =  6 

IF  A  REASONABLE  RATIO  TEST  TIME  TO  ETA  HAS  RESULTED  IN  AN 
UNREASONABLE  SAMPLE  (OR  A  SAMPLE  SIZE  OF  OVER  FIFTY,  INDICATED  hY 
**)  YOU  SHOULD  NOW  MAKE  ANOTHER  ESTIMATE  OF  TEST  HOURS  OR  OPT  FOR 
ANOTHER  METHOD  OF  TEST  PLAN  DETERMINATION. 

PLEASE  CHOOSE  FROM  THE  FOLLOWING  OPTIONS: 

1.  DISPLAY  THE  TEST  PLAN  FOR  CURRENT  SAMPLE  SIZE  OF  6 

2.  MAKE  ANOTHER  ESTIMATE  OF  TEST  HOURS. 

3.  USE  ALTERNATE  TEST  PLAN  METHOD. 

INPUT  OPTION  NUMBER  FROM  THE  ABOVE  LIST? 

FIGURE  39  ZOFAILSB  OUTPUT  SCREEN  1 
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THE  TEST  PLAN  CONSISTS  OF  THE  FOLLOWING; 


SAMPLE  SIZE  IS  6 
TEST  HOURS  ARE  1500 


IF  ALL  THE  SAMPLES  SURVIVE  THE  TEST  WITHOUT  FAILURE  THEN  THE 
FAILURE  MODE  WHERE 

BETA  B  2.5  AND  ETA  «  2000 

HAS  BEEN  EITHER  ELIMINATED  OR  SIGNIFICANTLY  IMPROVED. 

THE  TEST  TIME  IS  75  PERCENT  OF  THE  CHARACTERISTIC  LIFE  OF  2000 
HOURS. 


FIGURE  40  ZOFAILSB  OUTPUT  SCREEN  2 


THE  ALTERNATE  TEST  PLAN  METHOD  REQUIRES  THE  INPUT  OF  A  REASONABLE 
NUMBER  OF  UNITS  FOR  TEST  (SAMPLE  SIZE)  AND  THE  SELECTION  OF  A 
TEST  HOUR  RATIO  FROM  THE  FOLLOWING  TABLE.  MAKE  AN  ESTIMATE  OF  A 
REASONABLE  SAMPLE  SIZE?  4 

NOW  CHOOSE  THE  NEAREST  VALUE  OF  THE  WEIBULL  SLOPE  BETA  AND  THE 
SAMPLE  SIZE  YOU  JUST  ESTIMATED  AND  THEN  NOTE  THE  CORRESPONDING 
TEST  HOUR  RATIO. 


PRESS  ENTER  TO  CONTINUE? 


FIGURE  41  ZOFAILSB  ALTERNATE  PLAN  INPUT  SCREEN 
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inappropriate  number  of  test  articles,  ^e  code  next  gives 
the  opportunity  to  revise  the  test  hours  in  order  to  adjust 
the  number  of  required  test  articles  (figures  39  and  40) . 
This  adjustment  is  usually  upward  since  that  results  i*n 
fewer  test  articles.  After  one  or  more  adjustments  to  the 
test  hours  it  may  be  apparent  that  the  solution  is  still  not 
converging  to  an  acceptable  nxuDber  of  test  articles.  In 
this  case  there  is  the  choice  available  to  use  an  alternate 
test  plan  method.  See  option  3  on  figure  39. 
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Using  the  alternate  test  plan  method  requires  the 
initial  selection  of  a  reasonable  number  of  test  articles  as 
well  as  Beta  and  Eta  (see  figure  41) .  The  code  then 
presents  another  table  (figure  42)  which  allows  a  resulting 
number  of  test  hours  to  be  detexmined.  Again,  the 
opportunity  is  presented  to  make  another  choice  if  the  test 
plan  still  is  not  optimum.  This  procedure  can  be  repeated 
as  many  times  as  required  in  order  to  arrive  at  the  optimum 
zero-failure  test  plan.  It  should  be  noted  that  an  optimtun 
zero-failure  test  plan  almost  always  results  in  fewer  total 
test  hours  than  plans  generated  to  allow  for  one  or  more 
failures.  Optimum  in  this  case  would  be  for  a  minimum  of 
total  test  time. 

14.  N2FTE8TP  is  a  code  that  provides  substantiation 
that  a  fix  has  either  eliminated  a  failure  mode  or 
significantly  improved  it.  In  this  case  one  or  more 
failures  are  allowed,  hence  it  is  a  non-zero-failure  test 
plan.  The  introductory  screen  is  shown  in  figure  43. 

Inputs  are  shown  in  figure  44.  The  first  input  is  the 
probability  of  passing  the  test,  demonstrating  a 
significantly  improved  failure  characteristic,  if  no  fix  is 
introduced.  This  obviously  is  a  small  probability  such  as 
ten  percent,  or  0.1.  Next  is  input  the  probability  of 
passing  the  test  if  a  good  fix  is  introduced.  This  should 
be  a  much  higher  probability  such  as  ninety  percent,  or  0.9. 
The  next  inputs  are  the  characteristic  life  Eta  before  the 
fix  and  the  desired  characteristic  life  with  the  fix.  The 
increase  in  Eta  should  indicate  a  significant  decrease  in 
the  probability  of  an  early  failure.  Next,  a  reasonable 
number  of  test  hours  is  input  which  represents  the  target 
test  time  that  each  test  article  is  to  be  tested  to.  The 
last  input  is  the  Weibull  slope  Beta  for  the  failure  mode  in 
question. 

The  code  now  runs  in  an  iterative  mode  which  halts  at 
certain  points  that  show  agreement  between  the  assumed 
probabilities  of  passing  the  tests  and  the  calculated 
values.  The  screen  displays  these  interim  results  and  as 
the  calculation  stops,  the  user  is  asked  to  press  the  FS 
(Function  5)  key  to  continue  the  iteration.  Figures  45  and 
46  show  samples  of  the  iterative  screens.  When  the  last 
iteration  is  complete  the  code  automatically  shows  a  table 
of  results  (figure  47).  The  user  is  asked  to  select  values 
from  this  table,  (NO,  Nl,  and  RO)  and  input  them  at  the 
prompts.  The  final  calculation  is  then  made  to  result  in 
the  final  test  plan.  The  results  are  presented  on  the 
screen  (See  figure  48)  in  terms  of  a  sample  size,  each  of 
which  must  be  tested  for  some  reasonable  amount  of  time  that 
was  input  earlier.  The  allowed  number  of  failures,  which 
must  not  be  exceeded,  is  also  given.  Also  presented  is  the 
total  number  of  test  hours  that  would  be  run  assuming  there 
were  no  test  failures.  This  represents  the  maximum  test 
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BETA 

SAMPLE 

SIZE 

0.5 

1.0 

1.5 

2.0 

2.5 

3.0 

3.5 

4.0 

4.5 

5.0 

3 

.589 

.767 

.838 

.876 

.900 

.916 

.927 

.936 

.943 

.948 

4 

.331 

.576 

.692 

.759 

.802 

.832 

.854 

.871 

.884 

.895 

5 

.212 

.460 

.596 

.679 

.772 

.722 

.801 

.824 

.842 

.856 

6 

.147 

.384 

.528 

.619 

.682 

.727 

.761 

.787 

.808 

.826 

7 

.108 

.329 

.477 

.574 

.641 

.690 

.728 

.757 

.781 

.801 

8 

.083 

.288 

.436 

.536 

.608 

.660 

.701 

.732 

.758 

.780 

9 

.065 

.256 

.403 

.506 

.580 

.635 

.677 

.711 

.739 

.761 

10 

.053 

.230 

.376 

.480 

.556 

.613 

.657 

.693 

.722 

.745 

12 

.037 

.192 

.333 

.438 

.517 

.577 

.624 

.662 

.693 

.719 

14 

.027 

.164 

.300 

.406 

.486 

.548 

.597 

.637 

.670 

.697 

16 

.021 

.144 

.275 

.379 

.461 

.524 

.575 

.616 

.650 

.679 

18 

.016 

.128 

.254 

.358 

.439 

.504 

.556 

.598 

.633 

.663 

20 

.013 

.115 

.237 

.339 

.421 

.486 

.539 

.582 

.619 

.649 

25 

.008 

.092 

.204 

.303 

.385 

.452 

.506 

.551 

.589 

.621 

30 

.006 

.077 

.181 

.277 

.358 

.425 

.480 

.526 

.565 

.598 

40 

.003 

.058 

.149 

.240 

.319 

.386 

.442 

.490 

.530 

.565 

50 

.002 

.046 

.128 

.215 

.292 

.358 

.415 

.463 

.505 

.540 

BETA  =2.5  SAMPLE  -  4 

PRINT  SCREEN  FOR  HARD  COPY  OF  TABLE.  INPUT  TEST  HOUR  RATIO  FROM 
TABLE? 


FIGURE  42 
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PROGRAM  TO  GENERATE  A  NON-ZERO  FAILURE  TEST  PLAN 
SAMPLE  SIZE  REQUIRED  FOR  GIVEN  TEST  TIME 


THESE  TEST  PLANS  WILL  HAVE  THE  FOLLOWING  STRUCTURE: 

A.  PUT  N  ITEMS  ON  TEST  FOR  T  HOURS  (CYCLES)  EACH. 

B.  WHEN  AN  ITEM  ON  TEST  FAILS,  IT  NOT  REPAIRED. 

C.  IF  RO  OR  FEWER  FAILURES  OCCUR,  THE  TEST  IS  PASSED. 


FIGURE  43 


NZFTESTP  INTRODUCTORY  SCREEN 


NADC-89019-60 


INPUT  VALUE  OF  PROBABILITY  OF  PASSING  TEST  WITH  ETA  OF  FAIL  MODE. 
THIS  IS  ONE  MINUS  THE  PERCENT  CONFIDENCE  OF  THE  VALUE  OF  ETA  - 
USUALLY  0.1 

A0=?  .1 

INPUT  VALUE  OF  PROBABILITY  OF  PASSING  TEST  WITH  ETA  DESIRED 
THIS  IS  THE  PERCENT  CONFIDENCE  OF  ETA  DESIRED  -  USUALLY  0.9 

Al=?  .9 

INPUT  VALUE  OF  ETA  FOR  FAIL  MODE?  2000 
INPUT  VALUE  OF  ETA  DESIRED?  4000 


INPUT  NUMBER  OF  TEST  HOURS  EACH  TEST  ARTICLE?  1000 


INPUT  VALUE 

OF  BETA  FOR 

FAIL  MODE?  2.5 

FIGURE  44 

NZFTESTP 

INPUT  SCREEN 

A0=.l 

G0=. 837967 

N0*1 

A0=.l 

G0=. 7021886 

N0=2 

A0=.l 

GO^^. 5884108 

N0=3 

A0=.  1 

G0=. 4930688 

N0*4 

A0=.l 

G0=. 4131753 

N0*5 

A0=.  1 

G0». 3462272 

N0=6 

A0=.  1 

GO*. 290127 

N0=7 

A0=.l 

GO*. 2431168 

N0*8 

A0=.l 

GO*. 2037238 

N0*9 

A0=.l 

GO*. 1707138 

N0*10 

A0=.l 

GO*. 1430526 

N0*11 

A0=.l 

GO*. 1198733 

N0*12 

A0=.l 

GO*. 1004499 

N0*13 

PRESS  F5  KEY  TO  CONTINUE 

Break  in 
Ok 

1662 

FIGURE  45  NZFTESTP  ITERATION  SCREEN  1 


Al=  .9 

Gl-  .9692332 

Nl-  1 

Al*  .9 

Gl«  .939413 

Nl«  2 

Al*  .9 

Gl*  .9105103 

Nl*  3 

22.82147 

5.266494 

PRESS  F5  TO 

CONTINUE 

Break  in  1912 
Ok 

FIGURE  46  NZFTESTP  ITERATION  SCREEN  2 
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AO 

GO 

NO 

A1 

G1 

Nl 

M 

RO 

.1 

.1004499 

13 

.9 

.9105103 

3 

22.82147 

0 

.1 

.1075184 

22 

.-9 

.9051063 

17 

6.815463 

1 

.1 

.1016429 

31 

.9 

.9079262 

35 

4.664609 

2 

0 

0 

0 

0 

0 

0 

0 

3 

0 

0 

0 

0 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

5 

NOW 

SELECT  THE 

LAST 

TWO  VALUES 

1  OF  M  AMD 

COMPARE  THEM  WITH 

« 

« 

N  »  5.266494 


THE  FINAL  VALUE  OF  NO  AND  N1  ARE  THE  VALUES  WHICH  ARE  IN  THE  ROW 
VARIABLES  THAT  CONTAINS  THE  VALUE  OF  M  CLOSEST  TO  THAT  OF  N  - 
EITHER  +  OR  - . : ? 

INPUT  THESE  VALUES  OF  NO  AND  N1  AT  THE  PROMPTS 

INPUT  NO: 

?  31 

INPUT  Nl; 

?  35 

INPUT  RO: 

?2 


FIGURE  47  NZFTESTP  OUTPUT  SCREEN  1 


THE  SAMPLE  SIZE,  EACH  OF  WHICH  MUST  BE  TESTED  FOR  1000  HOURS,  IS; 

SAMPLE  SIZE  »  33 

IF  2  OR  LESS  FAILURES  OCCUR  THE  TEST  IS  PASSED. 

MAXIMUM  TOTAL  TEST  HOURS  IF  ALL  TEST  UNITS  RUN  W/0  FAIIAJRE  = 
33000  HOURS 

FIGURE  48  NZFTESTP  OUTPUT  SCREEN  2 
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hours  that  would  be  run  for  a  100%  successful  test.  This 
number  can  be  used  as  an  indication  of  whether  the  test  is 
too  long.  Also,  the  number  of  test  articles  may  be  too 
large  and  require  that  a  new  test  plan  be  formulated  with  a 
higher  number  of  test  hours  per  test  article.  Whatever  the 
result,  the  user  Is  given  the  opportunity  to  do  another 
analysis  or  quit  and  return  to  the  menu. 
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SAMPLE  SOLUTIOHS 


This  section  contains  sample  solutions  for  each  of  the 
codes  addressed  in  this  report,  including  WEIBER,  which 
shows  the  menu  and  the  Help  screens.  The  sample  solutions 
are  meant  to  be  illustrative  only  and  are  not  meant  to 
represent  any  specific  engine  or  actual  engine  or  parts 
problem.  It  is  hoped  that  between  the  sample  solutions,  the 
previous  explanations,  and  the  code  listing  of  Appendix  A, 
readers  with  a  desire  to  utilize  the  codes  will  be 
successful  without  spending  a  great  deal  of  time  in  the 
learning  process.  As  the  codes  mature  with  further  use  and 
modification,  they  will  become  more  useful  and  be  applicable 
to  a  broader  range  of  gas  turbine  engine  problems.  A  more 
comprehensive  user's  manual  may  also  be  written  in  the  near 
future  if  it  is  required. 
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t  I  i  HELP  FOP  KEIB'JLL  ANALYSIS  ROUTINE  I  I  t 


THIS  IS  A  SYSTEflATIC  ROUTINE  FOR  HAKINB  FAILURE  ANALYSES  RASED  ON 
THE  NEIBULL  DISTRIBUTION  NETHODOLOEY.  THE  SERIES  OF  CODES  THAT  HArE  UP  THE 
ROUTINE  ARE  HRITTEN  FOR  6AS  TURBINE  ENGINE  PART  FAILURES  BUT  CAN  BE 
APPLIED  TO  ANY  TYPE  EQUIPHENT  THAT  CORRELATES  IN  A  NEIBULL  DISTRIBUTION. 

THE  FOLLONINS  IS  A  LIST  OF  THE  AVAILABLE  COOES  AND  THEIR  FUNCTIONS. 

YOU  OAT  USE  ANY  CODE  AS  A  STAND-ALONE  ANALYTICAL  TOOL. 


PRESS  ANY  KEY  TO  CONTINUE.’ 


I.  NEIBULL  PARAMETER  CALCULATION  TSUSNEIBL)  -  THIS  CODE  IS  USED  10 
CALCULATE  THE  NEIBULL  SLOPE  ’BETA’  AND  THE  CHARACTERISTIC  LIFE  ’ETA- 
USING  A  SAHFLE  COflPOSED  OF  BOTH  FAILURES  AND  SUSPENDED  UNITS.  SUSPENDED 
UNITS  ARE  THOSE  THAT  ARE  NQN-FAILED  OR  NOT  FAILED  BY  THE  NODE  UNDER 
CONSIDERATION.  DATA  REQUIRED  ARE;  (II  NUMBER  OF  UNITS  IN  THE  SAMPLE, 

(2)  NUMBER  OF  FAILED  UNITS  IN  THE  SAMPLE,  AND  (3)  NUMBER  AND  AGE  OF  EACH 
UNIT  OR  GROUP  OF  UNITS  NITH  THE  SAME  AGE.  THE  OUTPUT  FROM  THIS  CODE 
IS  !  (II  BETA,  (21  ETA,  (31  B*l«  LIFE,  (41  B-Sf  LIFE,  (SI  LEAST  SOUARES 
CORRELATION  COEFFICIENT,  AND  (6)  THE  INSTANTANEOUS  FAILURE  RATE  VERSUS 
THE  AGE  OF  THE  UNITS.  IF  BETA  IS  KNQNN,  OR  |F  YOU  HAVE  A  GOOD  ESTIMATE 
OF  BETA,  YOU  MAY  USE  OPTION  6,  ’CHARACTERISTIC  LIFE  CALCULATION.’ 


PRESS  THE  ENTER  KEY  TO  CONTINUE.? 
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2.  PRESENT  RISK  ANALYSIS  (PRESRISK)  -  THIS  CODE  IS  USED  TO  CALCULATE 
THE  EXPECTED  NUHBER  OF  FAILURES  TO  HAVE  OCCURRED  TO  DATE  OVER  THE  LIFE  OF 
THE  UNITS  OF  THE  SAHPLE.  THE  CODE  IS  EXCELLENT  FOR  VERIFYIN6  THE  FAILURES 
AS  NELL  AS  'ETA’  BY  COHPARINS  ANSHERS  HITH  XNOHN  FAILURES  IN  THE  POPULATION. 
DATA  REQUIRED  ARE;  (1)  BETA,  (2)  ETA,  13)  NUNBER  AND  A6E  OF  EACH  UNIT  OR 
BROUP  OF  UNITS  NITH  THE  SAKE  ABE.  THE  OUTPUT  FRON  THE  CODE  IS; 

(1)  THE  PERCENT  IN  EACH  BROUP  EXPECTED  TO  FAIL,  (2)  THE  NUNBER  IN  EACH  BROUP 
EXPECTED  TO  FAIL,  AND  (3)  THE  TOTAL  NUNBER  OF  EXPECTED  FAILURES  FOR  THE 
POPULATION. 


PRESS  THE  enter  KEY  TO  CONTINUE.’ 


3.  FUTURE  RISK  ANALYSIS  (FUTRISKS)  -  THIS  CODE  IS  USED  TO  CALCULATE 
THE  EXPECTED  NUNBER  OF  FAILURES  OVER  A  SPECIFIED  FUTURE  TINE  PERIOD  FOR 
A  POPULATION  THAT  ACCUNULATES  NORE  OPERATINB  TINE  OVER  THAT  TINE  PERIOD. 

IT  IS  ASSURED  THAT  THERE  ARE  NO  REPAIRS  SO  FAILURES  ARE  FOR  THE  ORIBINAL 
POPULATION  ONLY.  FOR  A  NORE  CONPLEX  ANALYSIS  NHERE  PARTS  ARE  REPAIRED 
AND  RETURNED  TO  SERVICE,  SEE  OPTION  4,  THE  NONTE  CARLO  RISK  ANALYSIS. 

DATA  REQUIRED  ARE:  U)  BETA,  (2)  ETA,  (3)  NORTHS  INTO  THE  FUTURE  THAT  THE 
ANALYSIS  HILL  COVER,  (4)  AVERA6E  NONTHLY  OPERATINB  HOURS  PER  UNIT  OVER 
THE  TINE  PERIOD,  AND  IS)  NUNBER  AND  ABE  OF  EACH  BROUP  OF  UNITS  HITH  THE  SANE 
ABE.  THE  OUTPUT  FRON  THIS  CODE  IS:  (1)  THE  PERCENT  IN  EACH  BROUP  EXPECTED 
TO  FAIL,  (2)  THE  NUNBER  IN  EACH  BROUP  EXPECTED  TO  FAIL,  (3)  CUNULATIVE 
FAILURES,  AND  (4)  THE  TOTAL  NUNBER  OF  EXPECTED  FAILURES  IN  THE  POPULATION. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.? 
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4.  HtIBULL  FAILURE  ANALYSIS  •  HONTE  CARLO  (HEIBRISK)  -  THIS  CODE  IS 
A  COHRREHENSIVE  analytical  TOOL  THAT  CAN  BE  USED  TO  FORECAST  NUHBERS  OF 
FAILURES  AS  NELL  AS  THE  FAILURE  TlHES  IN  TERNS  OF  OPERATIN6  HOURS  OR  CYCLES. 
IT  IS  A  STATISTICAL  CODE  THAT  HAKES  THOUSANDS  OF  CALCULATIONS  TO  ALLOW 
STATISTICAL  AVERAGES  TO  BE  CALCULATED.  IT  IS  EUREHELY  ACCURATE  NHEN 
REQUIRED  INPUT  DATA  IS  EITRENELY  ACCURATE.  IT  IS  CAPABLE  OF  PROVIDING 
SENSITIVITIES  SO  THAT  LESS  ACCURATE  DATA  CAN  BE  USED  TO  ARRIVE  AT 
reasonable  solutions  and  allow  for  IHPACT  analysis,  data  REOUIRED  ARE: 

(1)  BETA,  (2)  ETA,  (3)  NUNPER  AND  AGE  0^  EACH  GROUP  OF  UNITS  WITH  THE  SANE 
INITIAL  tihe,  (41  TOTAL  NU«B£R  O'  ENGINES  IN  THE  SANFlE,  15)  NUHBER  OF  NORTHS 
IN  THE  analysis,  (i)  AVERAGE  OPERATING  HOURS  PER  NONTH  PER  PART  OVER  THE  TINE 
OF  THE  ANALYSIS,  (7)  THE  INSPECTION  INTERVAL  AT  WHICH,  IF  REACHED  BEFORE  A 
failure  occurs,  all  parts  CONSIDERED  ARE  HADE  GOOD-AS-NEN  OR  lERO-TIHED, 

(8)  NUnEER  Qt  FAILURE  NODES  IN  Tuc  ANALYSIS,  AND  (Rl  THE  ENGINE  NAHE. 

NOTE  THAT  BETA  AND  ETA  HL'S^  PE  FURNISHED  FOR  EACH  FAILURE  NODE.  ALSO 
NOTE  that  large  NUIB-tS  O'  ENGINES  AND  CULTIFLE  fAILURE  NODES  GREATLY 
INCREASE  THE  m  TIME. 


5.  WEIPULL  FAILURE  ANALYSIS  •  SHORT  PRINT-OUT  (SHRTWEIBI  -  T«!S  CODE 
IS  ALNOSI  IDENTICAL  TO  THE  PREVIOUS  CODE  EICEPT  FOR  THE  ANOUNT  0^  OUTPUT. 

IN  ORDER  TO  SPEED  UR  THE  ANALYSIS,  ONLY  WUHBERS  OF  FAILURES  ARE  OUTPUT 
AND  FAILURE  TIHES  AND  NODES  OR  FAILURE  ARE  ELIHINATED.  THIS  CODE  IS 
VERY  USEFUL  ARTER  IT  HAS  PEEN  DETERHINEB  WwiCH  FAILURE  NODES  OONINATE 
AND  SHEER  NUNPERS  ARE  OF  PRINE  INTEREST.  NANY  NORE  ENGINES  RAY  BE  ANALYSED 
IN  THE  SANE  ANOUNT  OF  TINE  AND  THE  VOLUNE  OF  PAPER  GENERATED  15  VERY 
SIGNIFICANTLY  LESS. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.'’ 
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4.  KEIPULL  FAILURE  ANALYSIS  -  HCN'E  CARLO  (KEIBRlSiC)  -  THIS  CODE  IS 
A  COH'-REHENSIVE  ANALYTICAL  TOOL  THAT  CAN  BE  USED  TO  FORECAST  NUHBE-S  O' 

FAILURES  AS  NELL  AS  THE  FAILURE  T1H£S  IN  TERRS  OF  ORERATINS  HOURS  OR  CYCLES. 

IT  IS  A  STATISTICAL  CODE  THA^  RAHES  THOUSANDS  Of  CALCULATIONS  TO  ALLON 
statistical  averages  to  be  calculated,  it  IS  EITRERELY  ACCURATE  HHEN 
REQUIRED  INPUT  DATA  IS  EITRERELY  ACCURATE.  IT  IS  CAPABLE  OF  PROVIDING 
SENSITIVITIES  SO  THAT'LESS  ACCURATE  DATA  CAN  BE  USED  TO  ARRIVE  AT 
REASONABLE  SOLUTIONS  AND  ALLON  FOR  IRPACT  ANALYSIS.  DATA  REQUIRED  ARE: 

(1)  BETA,  (2)  ETA,  (3)  NURBER  AND  AGE  OF  EACH  GROUP  OF  UNITS  NITH  THE  SARE 
INITIAL  TIRE,  «)  TOTAL  NURBER  OF  ENGINES  IN  THE  SARPLE,  (SI  NURBER  OF  RONTHS 
IN  the  ANALYSIS,  (6)  AVERAGE  OPERATING  HOURS  PER  RONTH  PER  PART  OVER  THE  TIRE 
OF  THE  ANALYSIS,  (7)  THE  INSPECTION  INTERVAL  AT  NHlCH,  Jf  REACHED  BEFORE  A 
FAILURE  OCCURS,  ALL  PARTS  CONSIDERED  ARE  HADE  GOOD-AS-NEN  OR  lERO-TIHED, 

(61  NURBER  OF  FAILURE  NODES  IN  THE  ANALYSIS,  AND  (9)  THE  ENGINE  NARE. 

NOTE  THAT  BETA  AND  ETA  RUST  BE  FURNISHED  FOR  EACH  FAILURE  RODE.  ALSO 
NOTE  THAT  LARGE  NURBERS  OF  ENGINES  AND  RULTIPLE  FAILURE  NODES  GREATLY 
INCREASE  THE  RUNNING  TIRE.  THE  OUTPUT  FROR  THIS  CODE  IS:  (II  FAILURE  TIRES 
(21  NEM  FAILURE  TIRES,  (31  NURBER  OF  FAILURES  PER  ENGINE,  (41  IDENTIFICATION  OF 
FAILURE  RODE,  (S)  AVERAGE  NURBER  OF  FAILURES  PER  ENGINE  OVER  THE  NURBER  OF 
ITERATIONS,  (61  CURULATIVE  FAILURES  PER  ENGINE,  AND  (71  AVERAGE  FAILURES 
FOR  ALL  ENGINES  FOR  ALL  ITERATIONS. 


PRESS  ENTER  lEY  TO  CONTINUE.'? 


5.  NEIBULL  FAILURE  ANALYSIS  •  SHORT  PRINT-D'JY  (SHRTNEIB)  -  THIS  COD: 
IS  ALROST  IDENTICAL  TO  THE  PREVIOUS  CODE  ElCEPT  FOR  THE  AROUNT  OF  OUTPUT. 

IN  ORDER  TO  SPEED  UP  THE  ANALYSIS,  ONLY  NURBERS  OF  FAILURES  ARE  OUTPUT 
AND  failure  TIRES  AND  HOOES  QF  FAILURE  ARE  ELIRINATEO.  THIS  CODE  IS 
VERY  USEFUL  AFTER  IT  HAS  BEEN  DETERRINED  NHlCH  FAILURE  RODES  DOHINATE 
AND  SHEER  NURBERS  ARE  OF  PRIRE  INTEREST.  RANY  HORE  ENGINES  RAY  PE  ANALYSED 
IN  THE  SARE  AROUNT  OF  TIRE  AND  THE  VCLURE  Of  PAPER  GENERATED  IS  VERY 
SIGNIFICANTLY  LESS. 


PRESS  THE  ENTER  FEY  Tfl  CONTINUE.? 


6.  CHARACTERISTIC  LIFE  CALCIR.AT10N  (ETACALCI  •  THIS  CODE  IS  USEFUL 
HHEN  BETA  IS  KNOHN  FOR  THE  FAILURE  RODE  AND  GOOD  FAILURE  DATA  IS  AVAILABLE 
TO  CALCULATE  ONLY  THE  CHARACTERISTIC  LIFE.  DATA  REDUIRED  ARE:  (II  BETA, 
(21  TOTAL  NURBER  OF  FAILURES  THAT  DATA  IS  AVAILABLE  FOR,  AND  (31  DATA 
PAIRS  OF  NURBERS  OF  FAILURES  AND  OPERATING  TIRE  AT  FAILURE.  THE  OUTPUT 
FROR  THIS  CODE  IS  THE  CALCULATED  VALUE  OF  THE  CHARACTERISTIC  LIFE. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.? 
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7.  CONriDENCE  INTERVAL  CALCULOTIOK  IWFINTBE)  -  THIS  CODE  CALCULATES 
UPPEA  AND  LONEP  CONFIDENCE  BOUNDS  FOR  BOTH  BETA  AND  TINE  TO  FIRST  FAILURE. 
CALCULATIONS  CAN  BE  HADE  FOR  CONFIDENCE  LEVELS  OF  #.9f,  f.95,  OR  B.99. 
THESE  UPPER  L  LONER  LIHITS  ARE  INDICATIONS  OF  THE  ACCURACY  ONE  CAN  EJPECT 
FRON  THE  HANY  CALCULATIONS  THAT  CAN  BE  HADE  FROH  THESE  CODES. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.? 


e.  RELIABILITY  AND  CONFIDENCE  INTERVALS  FOR  RELIABILITY  (RELIABTY)  • 
THIS  CODE  CALCULATES  THE  RELIABILITY  OF  A  COHPONENT  AT  ANY  TIHE  BASED  ON 
THE  VALUES  OF  BETA  AND  ETA.  YOU  HAY  THEN  CALCULATE  THE  CONFIDENCE  INTERVAL 
FOR  THIS  RELIABILITY  AT  A  CONFIDENCE  LEVEL  OF  I.9B,  B.95,  OR  1.99. 

ALSO  PRESENTED  IS  THE  C0RRESP0NDIN6  PROBABILITY  QR  FAILURE. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.? 


9.  HISTORICAL  BE’A  VALUES  (BETAHIST)  •  THIS  CODE  PRINTS  OUT  A  LIST  OF 
probable  values  or  RANGES  OF  BETA  FOR  SOHE  CDRHON  RODES  OF  FAILURE  IN  6AS 
TURBINE  COMPONENTS.  NHRE  THESE  HISTORICAL  VALUES  SHOULD  NOT  BE  TAKEN  AS 
ABSOLUTE,  THEY  REPRESENT  REASONABLE  STARTING  VALUES,  ESPECIALLY  FQR  PERFORHING 
SENSITIVITY  analyses. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.? 


IB.  HE16ULL  PARARETER  CALCULATION  (PNA  CO)  •  THIS  CODE  IS  SIRILAR  TO 
CODE  NURBER  1  EICEPT  THAT  IT  CAN  PROVIDE  THE  VALUES  OF  BETA  AND  ETA  HHICH 
HATIRIZE  THE  ’LIKELIHOOD'  OF  OBTAININS  THE  OBSERVED  BATA.  THERE  ARE  CASES 
NHERE  THESE  VALUES  HAY  BE  DIFFERENT  THAN  THOSE  OBTAINED  IN  CODE  I  BY  A 
REASONABLE  ANOUNT.  IF  THERE  IS  A  MSTIOM,  BOTH  CODES  SHOULD  IE  RUN  AND 
SENSITIVITIES  ESTABLISHED. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.? 
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11.  HEIBl'LL  failure  AN6LYSIS  FOR  OVER  1110  EN6INES/PAR1S  - 
THIS  CODE  IS  SIMILAR  TO  THE  PREVIOUS  TM  BOWTE  CARLO  COOES  EXCEPT  THA^ 

IT  IS  OniHlZED  TO  ANALYZE  A  nAIINUN  OF  EN6INES/PARTS.  THIS  CODE  SHOULD 
BE  USED  AFTER  THE  DOMINANT  FAILURE  NODE  HAS  BEEN  DETERMINED  AND  NO  MORE 
THAN  ONE  FAILURE  MODE  SHOULD  BE  ANALYZED  AT  A  TIME.  THE  INPUT  IS  THE  SAME 
AS  IN  CODES  (4)  AND  (5)  BUT  THE  OUTPUT  IS  LIMITED  TO  THAT  OF  CODE  (5). 

ONLY  THE  TOTAL  FAILURES  ARE  6IVEN  PER  ITERATION  ALONE  NITH  THE  AVERAGES. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.’ 


12.  NEIBAYES,  NHEN  NEIBULL  PLOTS  ARE  NOT  POSSIBLE  * 

NHEN  THERE  IS  INSUFFICIENT  FAILURE  DATA  TO  CALCULATE  THE  NEIBULL  SLOPf  BETA 
AND  THE  CHARACTERISTIC  LIFE  ETA  UE  HAY  HAKE  ASSUMPTIONS  TO  ARRIVE  AT  THE 
BEST  ESTIMATES  AND  MAKE  CALCULATIONS  TO  DETERMINE  THE  DESIRED  Ll«.,  i.r. 
B.l,  Bl.  E10,  OR  B5B  LIFE.  FIRST,  IT  IS  NECESSARY  TO  HAKE  THE  BEST  SUESS 
RE6ARDINS  the  FAILURE  MODE  SUCH  AS  LCF,  HCF,  OR  OTHERS.  THEN  USE  CODE 
(61,  CHARACTERISTIC  LIFE  CALCULATION,  TO  DETERMINE  A  BEST  ESTIMATE  OF  ETA. 
THESE  FOR"  THE  INOUT  FOR  THIS  CODE  NHICH  THEN  CALCULATES  THE  APPRORRIA'E 
LIFE  OF  THE  PART  IN  QUESTION. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.’ 


13.  ZERO-FAILURE  TEST  PLAN  FOR  SUBSTATIATION  TESTING  - 
THIS  CODE  CALCULATES  THE  NUMBER  OF  EN6INES/PARTS  THAT  MUST  BE  TESTED  NITHOUT 
FAILURE  IN  ORDER  TO  DEMONSTRATE  THAT  A  GIVEN  FAILURE  MODE  HAS  BEEN  EITHER 
ELIMINATED  OR  SUBSTANTIALLY  IMPROVED.  INPUTS  REDUIRED  ARE  III  NEIBULL  SLOPE 
BETA,  (21  CHARACTERISTIC  LIFE  ETA,  AND  (3)  AN  ESTIMATE  OF  A  REASONABLE 
AMOUNT  OF  TEST  TIME,  RECOGNIZING  THAT  AT  LEAST  THREE  PARTS  OR  MORE  MUST 
EACH  BE  TESTED  FOR  THAT  AMOUNT  OF  TIME.  THE  CODE  ALIONS  A  SECOND  AND 
THIRD  TEST  TIME  ESTIMATE  (OR  MOREI  AND  ALSO  PROVIDES  FOR  AN  ALTERNATE 
METHOD  OF  TEST  PLAN  FORMULATION.  THEN  TEST  PLAN  IS  OUTPUT  IN  TERMS  OF 
A  SAMPLE  SIZE,  EACH  OF  NHICH  MUST  BE  TESTED  FOR  A  GIVEN  NUMBER  OF  HOURS 
NITHOUT  FAILURE  IN  ORDER  TO  DEMONSTRATE  A  SIGNIFICANT  IMPROVEMENT  IN  LIFE. 


PRESS  THE  ENTER  KEY  TO  CONTINUE.? 


54 


NADC-89019-60 


KtIBULL  ms*  ftNftLYSIS  ROUTINE 

NRITTEN  BY  JANES  L.  BYERS 
NAVAL  AIR  DEVELORNENT  CENTER 
CODE  6052 

HARniNSTER,  PA  18974 
VERSION  2  RAY  198b 

IP  YOU  HAVE  PROBlERS  OR  CORRENTS  CONTACT 
JARES  L.  BYERS  AT  THE  ABOVE  ADDRESS 


OPTIONS 


I  I  I  POP  REN'j 
I  I  I  FOR  HELP 
I  I  t  TO  QUIT 


•TYPE  lie  (ENTER! 
TYPE  BIf  (ENTER) 
TYPE  911  (ENTER) 


YOUR  CHOICE’  lee 


RENU 

NEIBUlL  analysis  routine 

1.  NEIBULL  PARARETER  CALCULATION.  (BE  CO) 

2.  PRESENT  RISK  ANALYSIS. 

3.  FUTURE  RISK.  ANALYSIS. 

4.  NEIBULL  FAILURE  ANALYSIS  -  RONTE  CARLO  ANALYSIS. 

5.  NEIBULL  FAILURE  ANALYSIS  *  SHORT  PRINT-OUT. 

6.  CHARACTERISTIC  LIFE  CALCULATION. 

7.  CONFIDENCE  INTERVAL  CALCULATIONS  FOR  BETA  I  TIRE  TO  FIRST  FAILURE. 

8.  RELIABILITY  AND  CONFIDENCE  INTERVAL  FOR  RELIABILITY. 

9.  HISTORICAL  VALUES  OF  BETA. 

If.  NEIBULL  PARARETER  CALCIA.ATION  N/  RAI.  LIKELIHOOD  VALUES.  IPNA  CO) 

11.  NEIBULL  FAILURE  ANALYSIS  -  FOR  OVER  llff  ENSINES7PARTS. 

12.  NEIBAYES  •  HHEN  NEIBULL  PLOTS  ARE  IHPOSSIBLE 

13.  ZERO  FAILURE  TEST  PLAN  FOR  SUBSTANTIATION  TESTING. 

14.  NON-ZERO  FAILURE  TEST  PLAN  GENERATION. 

15.  FOR  FUTURE  USE  -  NOT  YET  AVAILABLE, 

lb.  FOR  FUTURE  USE  -  NOT  YET  AVAILABLE. 

17.  FOR  FUTURE  USE  -  MT  YET  AVAILABLE. 

18.  FOR  FUTURE  USE  •  NOT  YET  AVAILABLE. 

TO  CONTINUE  CHOOSE  OPTION  NO.  OR  fH  TO  SUIT.?  I 
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SUSPENDED  NEIBULL  PARMETES  CALCL'IAMON  PR06RA?'  (BEN  ElEC  CO) 

AS  INPROVtO  Pr  J.  L.  BYERS,  CODE  6P52,  NAVAIRDEVCtK,  NAR»iINSTER,  PA  18974 


DATA  INPUT  .  type  IN  THE  FOLLONIN6  ! 

88f8  DATA  N,>. 

HHERE  N  <  THE  TOTAL  NUH6ER  IN  THE  SAHPlE  AND 
Y  «  THE  HUHBER  OF  FAILURES 

8916  DATA  T1,F1,T2,F2,T3,F3,...,ETC. 

NHERE  T1  IS  THE  ABE  IN  HOURS  0^  THE  FIRST  FAILURE 
FI  IS  THE  CUNULA^IVE  COUNT  OF  THE  FIRST  FAILURE 
T2  IS  THE  ABE  IN  HOURS  0^  THE  SECOND  FAILURE 
F2  IS  THE  CUMULATIVE  COUNT  OF  THE  SECOND  FAILURE,  (tc. 
USE  additional  lines  as  needed  to  ADD  HORE  DATA. 

NHEN  THE  LAST  DATA  IS  ENTERED,  INPUT  (RUN  2166)  TO  CONTINUE. 

Brci)!  in  2666 
0> 


8S66  data  16,16 

8916  DATA  BE,  1,135, 2, 156, 3, 156,4, 1S6, 5.266. fc, 266, 7, 246, 8, 2*6, 9, 2D6, 16 


TOTAL  NUMBER  IN  SAMPLE  IS  16 


TOTAL  NUMBER  OP  FAILURES  IS  :  16 
NEIBULL  PLOTTING  POSITIONS 


CUMH 

HOURS 

PERCENT 

FAIL 

AT 

AT 

COUNT 

FAIL 

FAIL 

1 

85 

6.697 

2 

I3S 

16.32 

3 

156 

25.943 

4 

iSI 

35.566 

5 

196 

45.189 

6 

266 

54.811 

7 

266 

64.434 

8 

246 

74.657 

9 

246 

83.68 

II 

256 

93.363 
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mSENT  RISK  MftLYSIS 
NRITTEN  BY  JARES  L.  BYERS 
MAVAL  AIR  DEVELOfRENT  CENTER,  CODE  6fS2 
KARNINSTER,  RA  18974 

26  FEB  B6 

DATA  INPUT  - ENTER  THE  FOLLON1N6  : 

mi  DATA  8,H 

HHERE  B  <  THE  NEIBULI  SLOPE  ’BETA’ 

AND  H  >  THE  CHARACTERISTIC  LIFE  ’ETA’ 

4140  DATA  Nl,Tl,N2,T2,...,ttc. 

NHERE  N1  IS  THE  NURBER  OF  UNITS  AT  TIRE  TI 
T1  IS  THE  0PERATIN6  TIRE  OF  UNITS  N1 
N2  IS  THE  NURBER  OF  UNITS  AT  TIRE  ^2 
T2  IS  THE  OPERATING  TIRE  OF  UNITS  N2.  «tc. 

USE  additional  LINE  AS  NEEDED  TO  ADD  RORE  DATA. 

NHEN  THE  LAST  DATA  IS  ENTERED,  INPUT  (RUN  7S>  TO  CONTINUE. 
Breik  in  70 
Ok 


4000  DATA  1.655057,877.3096 

4140  DATA  1,20, 1,25, I, 104, 1,153, I, 192, 1,198, 1,200, 1,259, 1,278, 1,296, 1,318, 1,326, 
1,341,1,410,1,437,1,501,1,580,1,594,1,623,1,660,1,677,1,811,1,862,1,904,1,1030 
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PRESENT  RISK  MALYSiS 

N'JUBER  of  failures  EIPECTED 
TO  HAVE  OCCURRED  lASED  ON  CURRENT 
OPERATINS  TIRES 
MITTEN  BY  J.  L.  lYERS 
NADCh  AARNINSTER,  pa  16974 


EN6-i  (HPT  DISK) 


PAIRS  USED: 

(NO.  OF  UNITS, 

OPERATINS  TIRE) 

26  ,  1  , 

2S  ,  1 

,  164  ,  1  ,  153  ,  1  , 

192  ,  1  ,  198  ,  1 

276  ,  1 

296  , 

1  ,  368  ,  1  ,  326  ,  1 

.  341  ,  1  ,  416  , 

S86  ,  1 
1636  , 

594  , 

1  ,  623  ,  1  ,  666  ,  1 

,  677  ,  1  ,  611  , 

UNITS 

TIRE 

t  FAIL 

NO.  FAILS 

1 

26 

1.913671E-P3 

1.913671E-63 

1 

25 

2. 766431 E-63 

2.766431E-63 

1 

164 

2.88937IE-62 

2.869371E-62 

1 

153 

5.462965E-62 

5.46296SE-62 

1 

192 

7.769585E-62 

7.769585E-62 

1 

19B 

8.158517E-62 

8.158517E-62 

1 

266 

8.2895l6E*f2 

6.269S16E-62 

1 

259 

.1243661 

.1243661 

1 

278 

.1366367 

.1366367 

I 

296 

.152566 

.152586 

1 

366 

.162673 

.162673 

1 

326 

.1765562 

.1765562 

1 

341 

.1668217 

.1666217 

1 

416 

.2471529 

.2471529 

1 

437 

.27657*2 

.2765742 

1 

561 

.3267164 

.3267164 

1 

566 

.3959249 

.3959249 

1 

594 

.4686615 

.4686615 

1 

623 

.4329996 

.4329996 

I 

666 

.4718267 

.4716267 

1 

677 

.4785177 

.4785177 

1 

811 

.5843*43 

.5843443 

1 

862 

.6213*78 

.6213478 

I 

964 

.6583648 

.6583646 

1 

1636 

.7285468 

.7285468 

TOTAL  FAILURES  «  6.166267 

VALUE  OF  HEIBULL  SLOPE  BETA  IS  1.6SSfS7 

VALUE  OF  CHARACTERISTIC  LIFE  ETA  IS  677.3896 


,  259  , 

1  ,  Sfl  , 
1  ,  964  , 
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FUTURE  RISK  ANALYSIS 
WRITTEN  BY  JANES  L.  BYERS 
NAVAL  AIR  DEVELORNENT  CENTER,  CODE  6BS2 
NARNINSTER,  PA  16974 
1  APRIL  1966 

DATA  INPUT - ENTER  THE  FOLLOWIN6  : 

4BBf  DATA  B,H 

WHERE  B  *  THE  WEIBULL  SLOPE  'BETA' 

H  *  THE  CHARACTERISTIC  LIFE  'ETA' 

4140  DATA  nOS.UTR 

WHERE  nos  IS  THE  NUHBER  OF  RONTHS  INTO  THE  FUTURE 
UTR  IS  THE  nONTHLY  UTILIZATION  RATE 

4049  DATA  Nl,Tl,N2,T2,...,etc. 

WHERE  N1  IS  THE  NUHBER  OP  UNITS  AT  TIHE  T1 

T1  IS  THE  OPERATINS  TINE  OF  UNITS  N1 

N2  IS  THE  NUHBER  OF  UNITS  AT  TIHE  T2 

T2  IS  THE  OPERATINS  TIHE  OF  UNITS  N2,  ttc. 

USE  ADDITIONAL  LINES  AS  NEEDED  TO  ADD  flORE  DATA. 

WHEN  THE  LAST  DATA  PAIR  IS  ENTERED,  INPUT  <RUN  250)  TO  CONTINUE. 
Break  in  230 
Ok 


4000  DATA  6.557812,27*1.127 
4040  DATA  12,60 

4049  DATA  54,400,81.500.54,600,162,700,54,600,169,900,271,1000,216,1100,270,1200 
,243,1300,169,1400,135,1500,61,1600,54,1700 


INPUT  THE  NUHBER  OF  DATA  PAIRS  JUST  ENTERED.'>  |4 
INPUT  THE  ENEINE  AND/OR  COflPONENT  NAHE?  ENB-l  (LPC  DISK! 
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FUTURE  RlSr.  ANALYSIS 

FORECASTED  FAILURES  OVER  THE  NEIT  12  MONTHS  TIME 
UTILIZATION  RATE  IS  01  HOURS  PER  MONTH 
HRITTEN  BY  ZAMES  L.  BYERS 
NADC,  HARMINSTER,  PA  1S974 


EN6-1  (LPC  DISK) 


NO. UNITS 

TIME 

1  FAIL 

NO. FAILS 

CUH  FAILS 

54 

1360 

0.01004 

0.54191 

0.54191 

8! 

1460 

0.015*2 

1.28990 

1.83181 

54 

1560 

0.02446 

1.32075 

3.1525:. 

162 

1660 

0.0364B 

5,90921 

9.06177 

54 

1760 

0.05296 

2.85973 

11.92150 

189 

1860 

0.07499 

14.17324 

26.09474 

270 

I960 

0.10372 

28.00345 

54.09819 

216 

2060 

0.14024 

30.29192 

84.39011 

270 

2160 

0.18550 

50.08423 

134.47430 

243 

2260 

0.24008 

58.33913 

192.81350 

189 

2360 

0.30403 

57.46207 

250.27550 

135 

2460 

0.37665 

50.84838 

301.12390 

81 

2560 

0.45633 

36.96305 

338.08700 

54 

2660 

0.54049 

29.18628 

367.27320 

total  FAILURES  *  367,2732 
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HEIBULL  RISK  ANALYSIS 
A  NDNTE  CARLO  SIHULATION 
HEIBRSKl 

RRITTEN  BY:  JAKES  L.  BYERS,  CODE  4B52 
NAVAL  AIR  DEVELOPMENT  CENTER 
NARBINSTER,  PA  1B974 


ENSINE  :ENG-2 


BETA  VALUES  ! 
3.55  5 


ETA  VALUES  : 

27A1  21AP 


DATA  PAIRS  : 

NO.  EN6S.  INIT.  TINE 

5  IBBB 


KAIlnUn  0PERATIN6  HOURS  PER  ENSINE  FOR  THIS  ANALYSIS  IS  72Bi  HOURS 
INSPECTION  INTERVAL  FOR  THIS  ANALYSIS  IS  2ffB  HOURS 
TIHE  DURATION  OF  THIS  ANALYSIS  IS  121  HONTHS 
UTILIZATION  RATE  IS  61  HOURS  PER  ENGINE  PER  HONTH 
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nniittttiDitintn  i  niMiiitiitiiiiiniinHi 


I  t  t  ITERATION  NUMBER  lilt 


ENSINE  NUNBER  1 

1709.194  2526.486 

TIME  ON  ENSINE  IS  1709.194 
2502.464  2197.962 

TINE  ON  ENSINE  IS  3789.193 
868.3184  1772.267 

TINE  ON  ENSINE  IS  4657.512 
3102.015  1560.29 

TIME  ON  ENSINE  IS  6225.002 
1399.672  2753.114 

TIME  ON  ENSINE  IS  7200 

CUnULATIVE  FAILURES  FOR  THIS  DATA  FAIR  ARE  3 
number  of  FAILURES  FOR  ENGINE  1  *  3 

ENSINE  NUMBER  2 

2764.727  2345.466 

TIME  ON  ENSINE  IS  Wi 
1795.113  796.6212 

TIME  ON  ENSINE  IS  2796,621 
2926.716  1005.93 

TIME  ON  ENSINE  IS  4602.552 
2434.131  2073.365 

TIME  ON  ENSINE  IS  6602.552 
3213.563  2010.636 

TIME  ON  ENSINE  IS  7200 

CUMULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  5 
NUMBER  OF  FAILURES  FOR  ENGINE  2  *  2 

ENGINE  NUMBER  3 

2810.613  1430.67 

TIME  ON  ENGINE  IS  1430.67 
1862,299  2149.401 

TIME  ON  ENSINE  IS  3292.969 
2715.163  2041.161 

TIME  ON  ENGINE  IS  5292.969 
1935.543  2259.940 

TINE  ON  ENGINE  IS  7200 
CUMULATIVE  FAILURES  FOR  THIS  WTA  PAIR  AR.  7 
NUM8ER  OF  FAILURES  FOR  ENGINE  3  *  2 

ENGINE  NUMBER  4 

1363.708  1658. 300 

TIRE  ON  ENGINE  IS  1363.700 
1926.670  2429.834 

TIME  ON  ENGINE  IS  3291.306 
2007.323  2317.798  . 

TIME  ON  ENGINE  IS  5290.306 
2842.090  2144.922 

TIME  ON  ENGINE  IS  7201 

CUMULATIVE  FAILURES  FOR  THIS  WTA  PAIR  ARE  9 
NUMBER  OF  FAILURES  FOR  ENGINE  4  i  2 
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EN61Nt  NUtPER  5 

2PJ9.P5  172S.121 

Tit'S  ON  ENGINE  IS  1725.121 
2532. 7<5  1647.712 

TIME  ON  ENGINE  IS  3372.833 
228*. 548  2368.714 

TIHE  ON  ENGINE  IS  5372.833 
3726.558  1641.383 

TINE  ON  ENGINE  IS  7114.217 
3371.55  1311.127 

TIHE  ON  ENGINE  IS  72M 

CUHULftTIVE  failures  FOR  THIS  DATA  PAIR  ARE  12 
NUMBER  OF  failures  FOR  ENGINE  5  *  3 


total  failures  ITERATION  NUH8ER  I  *  12 

t  I  i  ITERATION  NUHBER  2  I  I  I 


ENGINE  NUHBER  1 

15R1.849  1399.883 

TIME  ON  ENGINE  IS  1399.883 
1663.363  1684.891 

TIME  ON  ENGINE  IS  3283.893 
2*31.61  2247.773 

TIME  ON  ENGINE  IS  5283.894 
2658.165  2311.475 

TIME  ON  ENGINE  IS  7288 

CUMULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  14 
NUMBER  OF  FAILURES  FOR  ENGINE  1  *  2 

ENGINE  number  2 

3795. 731  1669.961 

TIME  ON  ENGINE  IS  1669.961 
2143.793  2234.63 

TIME  ON  ENGINE  IS  3689.961 
3851.286  1538.862 

TIHE  ON  ENGINE  IS  5228.823 
3474.714  1992.781 

TIHE  ON  ENGINE  IS  7288 

CUMULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  16 
NUHBER  OF  FAILURES  FOR  ENGINE  2  •  2 

ENGINE  NUHDER  3 

1868.866  2839.179 

TIHE  ON  ENGINE  IS  1868.866 
2983.865  1667.896 

TIHE  ON  ENGINE  IS  3727.162 
3424.344  2344.836 

TIHE  ON  ENGINE  IS  5727.162 
2449.924  2281.253 

time  on  engine  is  7288 

CUMULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  18 
NUHBER  OF  FAILURES  FOR  ENGINE  3  >  2 
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ENGINE  NL'?;BER  2 

2:?4.Ve5  1626.472 

TIHE  ON  ENGINE  IS  1626.472 
l57f.2E4  1476.156 

TIME  ON  ENGINE  IS  31*2.628 
3736.515  1414.963 

TINE  ON  ENGINE  IS  4517.611 
2222.923  2715.049 

TINE  ON  ENGINE  IS  6517.611 
1285.774  1766.777 

TINE  ON  ENGINE  IS  72ff 

CUnULATlVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  31 
NUNBER  OF  FAILURES  FOR  ENGINE  2  •  3 

ENGINE  NUNBER  3 

2«II.2I6  2393.969 

TINE  ON  ENGINE  IS  2Aff 
3588.738  1956.f79 

TINE  ON  ENGINE  IS  3956.879 
3211.72  1883.588 

TINE  ON  ENGINE  IS  5759.667 
1556.886  2447.896 

TINE  ON  ENGINE  IS  7288 

CUNULAIIVE  failures  FOR  THIS  DATA  PAIR  ARE  32 
NUNBER  OF  FAILURES  FOR  ENGINE  3  «  2 

ENGINE  NUNBER  4 

1671.954  1317.436 

TINE  ON  ENGINE  IS  1317.436 
1968.488  1676.919 

TINE  ON  ENGINE  IS  299*. 355 
2157.1  2214.229 

TINE  ON  ENGINE  IS  4994.355 
4579.126  1026.355 

TINE  ON  ENGINE  IS  6628.711 
2824.263  1786.783 

TINE  ON  ENGINE  IS  7288 

CUNULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  35 
NUNBER  OF  FAILURES  FOR  ENGINE  4  t  3 

ENGINE  NUNBER  5 

2175.164  1789.512 

TINE  ON  ENGINE  IS  I7B9.S12 
2464.898  2834.891 

TINE  ON  ENGINE  IS  3789.512 
1397.849  223B.26B 

TINE  ON  ENGINE  IS  3IB6.S61 
3298.485  1589. 487 

TINE  ON  ENGINE  IS  6776.847 
1945.26  1496.116 

TINE  ON  ENGINE  IS  7288 

CUNULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE  38 
NUNBER  OF  FAILURES  FOR  ENGINE  5  *  3 


TOTAL  FAILURES  ITERATION  NUNBER  3  «  15 
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AVERAGE  NUnfiER  FAILURES  3  ITERATIONS  * 


NUMBER  OF  FAILURES  IN  ITERATION  1  *  12 

NUMBER  OF  FAILURES  IN  ITERATION  2  «  11 

NUMBER  OF  FAILURES  IN  ITERATION  3  ■  IS 

AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  1 
AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  2 
AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  3 
AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  4 
AVERAGE  NUMBER  OF  FAILURES  FOR  ENGINE  S 


12.66G67 


IS  3 

IS  2.333333 
IS  2 

IS  2.333333 
IS  3 
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MEIBULL  RISK  ANALYSIS 
A  RONTE  carlo  SIHULATIDN 
SHINE I B2 

NRITTEN  BY:  JARES  L.  BYERS,  CODE  6IS? 

NAVAL  a:r  develophent  center 

NARNINSTER,  PA  18974 


ENGINE  tENG-3 


BETA  VALUES  : 
3.55 


ETA  VALUES  : 
2741 


DATA  PAIRS  : 

NO.  ENGS.  IN!T.  Tif-E 

5  1B88 


RAlIRUn  OPERATING  HOURS  PER  ENGINE  FOR  THIS  ANALYSIS  IS  72ff  HOURS 
INSPECTION  INTERVAL  FOR  THIS  ANALYSIS  IS  2Mf  HOURS 
TIRE  DURATION  OF  THIS  ANALYSIS  IS  121  NORTHS 
UTILIZATION  RATE  IS  61  HOURS  PER  ENGINE  PER  RONTH 
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illlitttttttlllltitit  DATA  PAIR  NUNBER  1  MMItlttllltltinittlltll 


AVERAGE  NUnBER  FAILURES  II  ITERATIONS  «  i 

NUNBER  OF  FAILURES  IN  ITERATION  1  >  9 

NUNBER  OF  FAILURES  IN  ITERATION  2  «  6 

MUKPER  OF  FAILURES  IN  ITERATION  3  *  4 

NUNBER  OF  FAILURES  IN  ITERATION  4  *  6 

NUNBER  OF  FAILURES  IN  ITERATION  5  *  b 

NUNBER  OF  FAILURES  IN  ITERATION  6  >  6 

NUNBER  OF  FAILURES  JN  ITERATION  7  *  5 

NUNBER  OF  FAILURES  IN  ITERATION  8  »  7 

NUNBER  OF  FAILURES  IN  ITERATION  9  *  3 

NUNBER  OF  FAILURES  IN  ITERATION  II  •  B 

AVERAGE  NUNBER  OF  FAILURES  FOR  ENGINE  I  IS  1 

AVERAGE  NUNBER  OF  FAILURES  FOR  ENGINE  2  IS  1.5 

AVERAGE  NUNBER  OF  FAILURES  FOR  ENGINE  3  IS  1.4 

AVERAGE  NUNBER  OF  FAILURES  FOR  ENGINE  4  IS  1.2 

AVERAGE  NUNBER  OF  FAILURES  FOR  ENGINE  5  IS  .9 
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PR05i<A»(  ETACALC 

WRITTEN  RY  JANES  1.  RYERS,  CODE  6152 
NAVAL  AIR  DEVELOPHENT  CENTER,  MARNINSTER,  PA  lSf74 


DATA  INPUT  .  INPUT  DATA  AS  INSTRUCTED. 

TYPE  IN  THE  F0LL0NIN6  DATA  STATENENT  TO  INPUT  THE  NEIBULL  SLOPE  ‘BETA’ 
AND  THE  TOTAL  NURBER  OF  FAILURES  : 

170R  DATA  B,T 

WHERE  -B’  IS  BETA  AND  ‘T’  IS  THE  TOTAL  NUfIBER  OF  FAILURES. 

IF  THERE  ARE  NO  FAILURES,  INPUT  1  FOR  T. 

THEN  TYPE  IN  THE  F0LL0WIN6  STATERENT  TO  INPUT  THE  DATA  PAIRS  ; 

18BI  DATA  Nl,Tl,N2,T2,...,ttt. 

WHERE  NI  IS  THE  NURBER  OF  UNITS  AT  TIRE  Tl,  AND 
Ti  IS  THE  OPERATING  TIRE  ON  UNITS  Nl. 

N2  IS  THE  NURBER  OP  UNITS  AT  TIRE  T2,  AND 
T2  IS  THE  OPERATING  TIRE  ON  UNITS  N2,  itc. 

WHEN  ALL  DATA  HAS  BEEN  ENTERED,  TYPE  ’RUN  IBC  AND  (ENTER). 

PreaL  in  6B 
Ok 


17Bf  DATA  3,531 

IBBB  DATA  40, 19138, 41578, 5A,59636.AA.TB53b,38.H56t, 22, 111132. *B. ::P2e6, Rt. 
5124,38,164920,38,183006,29,201298,39,220112 


INPUT  THE  NURPER  O'  DATA  FAIRS  JUST  ENTERED")  12 


CALCULATION  OF  THE  CHARACTERISTIC  LIFE  ETA 
BASED  ON  KNOWN  FAILURES  AND  NEIBULL  SLOPE  BETA 
WRITTEN  BYi  JARES  L.  BYERS,  CODE  6152 
NAVAL  AIR  DEVELOPHENT  CENTER 
WARNINSTER,  PA  18974 


data  PAIRS  I  (NO.  OF  ENGS.  AND  TIRE  ON  ENGS.) 

40  ,  I913B  ,  48  ,  41578  ,  54  ,  59636  ,  44  ,  70536  ,  38  ,  96564  ,  22  ,  111132  , 
48  ,  138206  ,  94  ,  145124  ,  38  ,  164920  ,  38  ,  183816  ,  29  ,  211298  ,  39  , 
220112  , 


THE  CALCULATED  VALUE  OF  ETA  IS  142914.8 
THE  VALUE  OF  8ETA  USED  IS  3 
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CONFIDENCE  INTERVAL  CALCULATION 
FOR 

BETA  •  ETA  •  TINE  TO  FIRST  FAILURE 
HRITTEN  BY  jANES  L.  BYERS,  CODE  6B52 
NAVAL  AIR  HVELORNENT  CENTER 
NARNINSTER.FA  18974 


lltliniltltlllllUtllllllUIIIIIMItlllllllltlllllllttlltlllllH 

THE  CONFIDENCE  INTERVALS,  OR  NEASURENENT  QF  THE  PRECISION  OF  THE 
ESTINATION  OF  BETA  AND  ETA  ARE  i 

1.999477  <»  BETA  <-  I.5P1291 
I667.#e9  <*  EM  2399.397 

FOR  BETA  AND  ETA  ESTINATES  OF  3  AND  ?«««  AND  A  CONFIDENCE  LEVEL  O'  .9 

tItUIttttlinillMttllMlltllllMIIUIIIIilltlllllllillllllllllt 
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COKHDENCE  INTEOVAi.  CALCl'LATIO'. 
fOR 

TIHE  to  first  failure 

HRITTER  BY  JA1ES  L.  BYERS,  CODE  6B52 
NAVAL  AIR  DEVtLQRNENT  CENTER 
NARKINSTER,  pa  19974 

VERSION  OF  I!  OCT  1906 


VALUE  OF  BETA  USED  IS  :  3 

VALUE  Qt  ETA  USED  IS  :  2BBB 

NUnPER  0^  FAILURES  BETA  AND  E1A  ARE  BASED  ON  IS  :  IP 

ESTIHATED  (CALCULATED)  VALUE  OF  TldE  TO  FIRST  FAILURE  IS  i  801 


T“E  CONFIDENCE  INTERVAL,  0*  •'EASURErENT  O'  PRECISICN  OF  th: 
ESTIMATE  OF  THE  TIME  TO  FIRS?  fa'll'RE  IS  t 

332.9696  <*  TIME  TO  FIRST  FAILURE  (*  1336. »9 


THE  ESTIMATED  VALUE  OF  TI»E  TO  FIRST  FAILURE  IS  :  Bff 
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RELIfiHLITY 

calculates  reliability  as  a  function  of  tihe 

NRITTEN  BY  JANES  L.  BYERS,  CODE  fc«52 

naval  air  oevelornent  center 

NARNINSTER,  PA  1B974 


THE  RELIABILITY  AT  TIHE  tti  IS  .B52M:B 

THE  PROBABILITY  0^  FAILURE  AT  THIS  TKE  IS  .1478542 

THE  values  of  beta  ANO  ETA  USEO  HERE  2  ANl  2PBB 


CONFIDENCE  INTEfvA:  CALCULATION 
FOR 

RELIABILITY 

NRITTEN  BY  JANES  L.  BYERS,  CODE  6f52 
NAVAL  AIR  OEVELOPNENT  CENTER 
NARNINSTER.  PA  ’97* 


VERSION  OF  24  FEB  87 


.7176721  <*  RELIABILITY  <•  .9877289 


NHERE  RELIABILITY  IS  .938115  FOR  BETA  •  3  ,  ETA  *  28M  ,  AND  TINE  *  888 
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WEIBULL  P*RAnETER  MLCUlflTION 
PRAIT  V  RHITNEY  RIRCRRFT  -  'fiPD  -  UTC 
AS  IMPROVED  PY  JAHES  L.  BYERS,  CODE  APS! 
NAVAIRDEVCEK,  MARRINSTER,  PA  1B974 


VERSIDR  18  FEB  1987 


0A7ft 

ORDER 

HEDIAH  RANK 

78? 

! 

.119375 

628 

2 

.265625 

918 

,> 

.421875 

958 

4 

.578125 

1858 

5 

.734375 

a’5? 

6 

.6986249 

BETA*  8.886238  EiA=  97*. 667: 


^flllnUP  LirE'JHODB  ESTldATES  FOLLON: 

BEIAt  18.6186?  ETft.  973.2026 


NADC-89019-60 


KEIB'JLL  RISV.  WfilYSlS 
A  nONlE  carlo  SinuLATION 
SHTIIEIB2 


ENfilNE  ;EN6-4 


BETA  VALUES  : 
3.55 


ETA  VALUES  : 
2741 


DATA  PAIRS  : 

NO.  EN65.  INF.  TINE 
5  B 


HAIINUN  0PERATIN6  HOURS  ‘'ER  ENBINE  POP  THIS  ANALYSIS  IS  72eB 
IKSPECTIGN  interval  POR  THIS  ANALYSIS  IS  2B?f  HOURS 
Tins  DURATION  O'  THIS  ANAlYSIS  IS  12f  HONTHS 
UTILIZATION  RATE  IS  M  HOURS  PER  ENBIKE  PER  HONTH 

littllllltittllllllli  data  PAIR  number  1  ttllllllllililiinillltlli 

AVERA6E  NUfIBER  FAILURES  If  ITERATIONS  »  4.5 

NUNBER  OF  FAILURES  IN  ITERATION  |  >  4 
NUNBER  OF  FAILURES  IN  ITERATION  2  «  5 
NUHBER  OF  FAILURES  IN  ITERATION  3  *  3 
NUHBER  OF  FAILURES  IN  ITERATION  4  >  7 
NUNBER  OF  FAILURES  IN  ITERATION  5  «  4 
NUNBER  OF  FAILURES  IN  ITERATION  6  t  5 
NUHBER  OF  FAILURES  IN  ITERATION  7  *  4 
NUHBER  OF  FAILURES  IN  ITERATION  B  >  4 
NUHBER  OF  FAILURES  IN  ITERATION  f  1  6 
NUHBER  Of  FAILURES  IN  ITERATION  If  t  3 
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MEIFAVES  ANALYSIS 
NH£N  NEIBULL  PLOTS  APE  IMPOSSIBLE 
DUE  TO  A  LACY  OF  FARl'PE  DATA 
NRITTEN  BY  JAMES  L.  BYERS 
NAVAL  AIR  DEVELOPMENT  CENTER,  CODE  4B52 
UARMINSTER,  PA  IB974 


LIFE  calculation  FOR  NEIBAYES 


PERCENT  OF  FQfULATlON  AlLONED  TO  FAR  «  IB  (CALCULATED  VALUE). 

(‘'E  calculated  life  USIN6  THE  INPUT  VALUE  OF  BI  IS  EQUAL  Tn  172.3188 

IF  THIS  value  IS  smaller  THAN  ACCEPTABLE  THEN  THE  CALCULATED  VALUE  0^ 
ETA  (CHARACTERISTIC  LIFE)  IS  TOO  SMALl.  THIS  MAY  BE  DUE  TO  A  LACI<  0^ 
SUFFICIENT  operating  TIME  USED  IN  THE  CALCULATION  0''  ETA.  iNtijTTRIFV 
data  INDICATES  A  NEED  TO  ETERCISE  CONSERVATISM  until  e'nW  OaERATICNAl 
EJPERIENCE  IS  obtained  NIT“ntjT  a  fa!lU*E  iOR  FE»  FAILURES)  SuC*'  Tm4t  t 
HIGHER  VA.UE  0^  ETA  R  CALCULATED. 

BETA  USED  NAS  3  ETA  USED  NAS  IBPB  , 
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HEIBAYES  AKA.VSiS 
KHEN  WEiBULL  PLO^S  APE  lA'CSSIBLE 
DUE  TO  A  LAC^  O'  FAILURE  DATA 
BRITTEN  BY  JANES  L.  BYERS 
NAVAL  AIR  BEVELOPHENT  CENTER,  CODE  6B52 
HARniNSTER,  PA  16974 


DATA  INPUT - ENTER  THE  FOLLONINSi 

4fBB  DATA  BY 

NHERE  BX  *  THE  PERCENT  0?  the  POPULATION  ALLONED 
TO  PAIL,  i.f.,  I.IBl  FOP  B,1  LIFE 
DO  NOT  USE  l.f  OR  ANY  PERCENT  >  1.999999 

<F4e  DATA  E,H 

NWERE  B  s  THE  ASSUNED  VALUE  OF  THE  NEIBULL  SLO^E 
’BETA’  AND  H  ^  THE  CALCULATED  VALUE  OF  THE  CHARACTERISTIC 
LIFE  ’ETA’ 

NHEN  ALu  DA'A  is  entered,  INPUT  <RUN  IOA®;  TO  CONTINUE. 

Bf*il  in  18*fc 
Or 


466B  DATA  tie 
me  DATA  3,i6fe 


LIFE  CALCAATION  FOR  NEIBAYEE 


PERCENT  OF  POPULATION  ALLONED  TO  FAIL  *  16  tCALCULATED  VALUE). 

THE  CALCULATED  LIFE  USIN6  THE  INPUT  VALUE  OF  Bl  IS  EQUAL  TO  472.36B6 

IP  THIS  VALUE  IS  SKALLER  THAN  ACCEPTABLE  THEN  THE  CALCULATED  VALUE  OF 
ETA  (CHARACTERISTIC  IIFEI  IS  TOO  SHALL.  THIS  HAY  IE  DUE  TO  A  LACK  OF 
8UFFICIEI.T  OPERATINB  TIHE  USED  IH  THE  CALCULATION  OF  ETA.  INSUFFICIENT 
DATA  INDICATES  A  NEED  TO  EXERCISE  CONSERVATISH  UNTIL  ENOUSH  OPERATIONAL 
EXPERIENCE  IS  OBTAINED  NITHOUT  A  FAILURE  (OR  FEN  FAILURES)  SUCH  THAT  A 
HISHER  VALUE  OF  ETA  IS  CALCULATED. 

BETA  US:B  NAS  3  ETA  USED  NAS  Iflf  . 
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ZERO  '4ILURE  ‘’LAN  BE'iERf'' 'ON 
Nimpts  Of  TEST  UNF5  AMD  TEST  TirE  rOR  EACH 
KRIT'EN  EV 

MRITTEN  PY:  JAHE5  L.  BYERS.  CODE  6B52 
NAVAL  AIR  DEVELOPHERT  CENTER 
NARHINSTER,  pA  18974 


VERSION  !7  HAY  87 


THE  TEST  FLAN  CONSISTS  OF  THE  FOLLONINE: 

SAHFLE  size  is  19 
TEST  HOURS  ARE  IfBE 


If  ALL  TwE  SAHFLES  SURVIVE  THE  TEST  NITHOUT  FAILURE  THEN  THE  FAILURE  HCCE  N-E". 

BETA  =  3  AND  ETA  *  2888 

HAS  BEEN  EITHER  ELIHIKOTED  OR  EIBNIFILHn'LY  IHFfOVEO. 

THE  TEST  TIHE  is  58  pERCEN'T  pr  thE  CHARACTERISTIC  LIFE  Of  288?  HOURS. 


SECOND  ES’JNATE  OF  TEST  HOURS 


THE  TEST  FLAN  CONSISTS  OF  THE  FOLLONINS: 

SAHFLE  SIZE  IS  4 
TEST  HOURS  ARE  1BI8 

IF  ALL  THE  SAHPLES  SURVIVE  THE  TEST  kllHOUT  FAILURE  THEN  THE  FAILURE  NODE  i“iF.E 

BETA  >  3  AND  ETA  t  2|f| 

HAS  BEEN  EITHER  ElIHIHATED  OR  SISNIFICANTLY  IHFROVEO. 

THE  TEST  TIHE  IS  91  PERCENT  OF  THE  CHARACTERISTIC  LIFE  OF  2888  HOURS. 
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ALlEFtN^L  Kt‘S 


THE  ftLTEPtie^E  TES’  PLft‘<  «THOD  REO'JIRES  THE  INPUT  OF  A  REASONABLE  NUNPER  OF 
UNITS  FOR  test  (SA-PLE  SIZE)  AND  THE  SELECTION  OF  A  TEST  HOUR  RATIO  FROU  THE 
F0LL0NIN6  table.  HAKE  AN  ESTIHATE  0^  A  REASONABLE  SAtIPLE  SIZET  lOBB 

NON  CHOOSE  THE  NEAREST  VALUE  0^  THE  NEIPULL  SLOPE  BETA  AND  THE  SANPLE  SIZE  YOU 
JUST  ESTIMATED  AND  THEN  NOTE  THE  CORRLSPONDINS  TEST  HOUR  RATIO. 

PRESS  ENTER  TO  CONTINUE’ 


THE  TEST  Plan  non  CONSISTS  OF  THE  FOLLONINE: 

SAMPLE  SIZE  IS  IBft 
TEST  HOURS  ARE  1BS2 

IF  ALL  THE  SAMPLES  SURVIVE  THE  TEST  NITHwT  FAILURE  THEN  THE  FAILURE  NODE  NMERE 

BETA  *  AND  ETA  »  2Mf 
HAS  BEEN  EITHER  ELIKINATED  OR  SISNIFICANTLY  IHPROVED. 

THE  TEST  TIRE  IS  Nl.B  PERCENT  OF  THE  CHARACTERISTIC  LIFE  OF  2fff  HOURS. 
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HISTORICAL  BETA  VALUES 


While  there  are  no  guaranteed  values  of  Welbull 
parameters  that  can  be  used  in  any  Weibull  analysis,  there 
are  values  of  the  Weibull  slope  Beta  that  seem  to  occur 
frequently  as  nearly  constant  values  for  certain  classes  of 
failures.  In  some  cases  these  will  be  given  as  a  range  of 
values  to  more  accurately  reflect  how  they  occur.  Even  if 
these  values  cannot  be  counted  on  to  be  exact,  they  can  be 
used  as  a  starting  point,  especially  when  there  is  very 
little  data  available  to  calculate  Beta  with  the  SUSWEIBL 
code.  If  one  performs  a  lot  of  Weibull  analyses,  all  values 
of  Beta  that  are  validated  should  be  retained  In  a  library 
for  future  reference.  In  addition,  as  more  failure  data 
becomes  available  for  any  specific  analysis,  the  analysis 
should  be  updated  to  Include  the  new  data.  This  Is 
especially  true  of  the  calculation  of  Beta  and  the 
characteristic  life  Eta. 

The  following  is  a  list  of  Beta  values  that  have  been 
obtained  from  the  references  and  actual  problems: 


fMLPRg  HOPP _ BETA  VALUE 

1.  Bearings,  general  failures . 1.5 

2.  Crack,  flange . . . 9.5 

3.  Erosion,  turbine  vane . 3.0 

4  .  LCF ,  compressor  case . . . 5.0 

5.  LCF,  compressor  disk . 3.0 

6.  LCF,  nozzle  bearing . 1.5 

7.  LCF,  general . 2.0 — >5.0 

8.  Performance  deterioration . 4.0 — >5.0 

9.  Rotating  structure . 6.0 — >8.0 

10.  Static  structure... . 4.0 — >6.0 

11.  Thermal  LCF,  combustor . 3.0 


12.  The  following  cases  all  have  the  same  value: 
Independence  of  time 
Ingestion  (FOD)  &  misuse 
Insufficient  redundancy 
Maintenance  errors 
Mixtures  of  problems 
Original  design  deficiencies 
Random  failures . 1.0 


The  value  of  the  Weibull  slope  also  has  the  following 
meanings  or  indications: 

*  Slopes  less  than  1.0  are  infant  mortality  where  the 
reliability  will  increase  with  age.  It  also  Indicates  a 
quality  problem  such  as  misassembly  (slope  usually  about 
0.5)  . 
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*  Slopes  that  are  greater  than  1.0  are  generally  wearout 
for  one  reason  or  another. 

*  A  slope  of  approximately  2.5  is  usually  gradual  wearout. 

*  A  slope  of  3.44  approximates  the  bell-shaped  curve  of  a 
Normal  distribution. 

*Slopes  that  are  greater  than  about  4.5  are  usually  rapid 
wearout  (brick  wall) . 
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APPENDIX  A 
PROGRAM  LISTING 


The  following  pages  contain  the  listings  of 
codes  and  WEIBER,  the  Weibull  Executive  Routine, 
listings  are  presented  in  the  same  order  as  they 
in  the  Weiber  main  menu. 


all  the 
These 
are  listed 


A-l 


NADC-8 90 19-60 


5  REN 

11  REN  Itttttttttttnitttt  PR06RAH  HEIBCOVR  ttitttitttittlittttnttittitutt 

12  KEY  OFF 

14  COLOR  2,1,1 

U  HIDTH  41 

21  CLSiPRINTiPRINTiPRINTiPRlNTiPRlNTtPRlNT*  HELCOK  TO  MEIKR* 

22  PRINTtPRINTiPRINTiPRINTiPRINT*  YOU  CRN  PERFORN  RISK  RNRLYSIS* 

24  PRlNTiPRlNT*  RND'iPRINT 

24  PRINT'  PREDICT  FAILURES* 

31  PRINTiPRINTiPRINT'  ARE  YOU  READY  >  (Y)  OR  <N>'|iINPUT  A» 

35  IF  AI>'Y'  THEN  CHAIN  'NEIIINTR* 

36  IF  AI>*N'  THEN  29999 

37  IF  AIO'N*  THEN  21 
29999  CLSiENO 

31111  CLSiPRINT'SAVINE  HEIBCOVR  ON  DISK  B'tSAVE'BtHEIBCOVR'iEND 
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5  REH 

11  REHttltllttlttltltlUt  PR06RRR  HEIBINTR  tttltttUttlttlttlttlttltttt 

12  KEY  OFF 

14  COLOR  2,1,1 
li  HIOTH  Bl 
111  PRINTtPRINTiCLS 

211  PRINT'  HEIBULL  RISK  MMLYSIS  ROUTINE'tPRINT 

311  PRINT*  NRITTEN  BY  JME8  L.  BYERS' 

411  PRINT'  NAVAL  AIR  BEVELOPHENT  CENTER* 

Sll  PRINT'  CODE  AIS2' 

Ml  PRINT'  HARHINSTER,  PA  1B974' 

711  PRINT 

811  PRINT'  VERSION  2  NAY  IVfl&'tPRINT 

811  PRINT'  IF  YOU  HAVE  PROBLEHS  OR  COHHENTS  CONTACT* 

B2I  PRINT*  JANES  L.  BYERS  AT  THE  ABOVE  ADDRESS  OR  PHONE* 

833  PRINT*  OPTIONS'iPRINT 

911  PRINT*  I  I  I  FOR  NENU - TYPE  111  (ENTER 

>* 

nil  PRINT*  I  I  I  FOR  HELP - TYPE  III  (ENTE 

R>* 

1211  PRINT*  I  I  t  TO  BUIT - TYPE  911  (ENTE 

R>‘iPRINTiPRINTtPRINTiPRINT 
1231  CLOSE 

1311  PRINT'YOUR  CHOICE'ii INPUT  A 
1411  IF  AMU  THEN  CHAIN  'NEIBER* 

1311  IF  A«BII  THEN  4111 

IMI  IF  A*9II  THEN  29999 

U3I  IF  A09II  THEN  111 

1793  CLSlPRlNT'NOT  A  VALID  CHOICE  •  SEE  OPTIONS. *iFOR  IM  TO  ISIIlNElT  liSOTO  II 

I 

4111  REN 

4111  CLSiPRINTiPRINTi PRINT 

4211  PRINT*  t  t  t  HELP  FOR  HEIBULL  ANALYSIS  ROUTINE  I  t  V 

4311  PRINTiPRINT 

4411  PRINT*  THIS  IS  A  SYSTENATIC  ROUTINE  FOR  RAKING  FAILWE  ANALYSES  BASED  0 
N* 

4311  PRINT*THE  HEIBULL  DISTRIBUTION  RETH0B0L06Y.  THE  SERIES  OF  CODES  THAT  HAKE 
UP  THE* 

4MI  PRINT*ROUTINE  ARE  NRITTEN  FOR  GAS  TURBINE  ENGINE  PART  FAILURES  BUT  CAN  BE* 
4711  PRINT*APPLIEO  TO  ANY  TYPE  EBUIPNENT  THAT  CORRELATES  IN  A  HEIBULL  BISTRIBUTI 
ON.* 

48H  PRINT*  THE  FOLLOHING  18  A  LIST  OF  THE  AVAILABLE  COKB  AND  THEIR  FWCTIO 
NS.* 

4911  PRINT*VOU  NAY  USE  ANY  CODE  AS  A  STAND-ALONE  ANALHICAL  TOOL.*iPRIHTiPRINT 
SIN  PRINT*PRE88  ANY  KEY  TO  CONTINUE.  *1 
SIH  INPUT  Oil  IF  BIO**  THEN  4111 
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S2M  CLS:PRINT‘  1.  HEIBULL  PARAHETER  CALCULATION  (8USHEIBL)  -  THIS  CODE  IS 
USED  TO* 

3311  PRINT'CALCULATE  THE  HEIBULL  SLOPE  'BETA*  AND  THE  CHARACTERISTIC  LIFE  'ETA" 
5411  PRINT'USINS  A  SAHPLE  COHPOSED  OF  BOTH  FAILURES  AND  SUSPENDED  UNITS.  8U8PEN 
DED' 

SSff  PRINT'UNITS  ARE  THOSE  THAT  ARE  NON-FAILEB  OR  NOT  FAILED  BY  THE  NODE  UNDER' 

SEIB  PRINT'CONSIDERATION.  DATA  REQUIRED  AREi  (1)  NUHDER  OF  UNITS  IN  THE  SAHPU, 

• 

STM  PRINT* (21  NUHDER  OF  FAILED  UNITS  IN  THE  SAHPLE,  AND  (31  HUHDER  AND  A6E  OF  E 
ACN* 

SBIf  PRINT'UNIT  OR  6R0UP  OF  UNITS  NITH  THE  SAKE  A6E.  THE  OUTPUT  FROfl  THIS  CODE* 
S9ff  PRINT*IS  I  (I)  BETA,  (21  ETA,  (31  B-lf  LIFE,  (4)  D-Sf  LIFE,  (3)  LEAST  SQUAR 
ES* 

ABM  PRIHT*CORRELATION  COEFFICIENT,  AND  (A)  THE  INSTANTANEOUS  FAILURE  RATE  VERSU 
S* 

AIM  PRINT'THE  ABE  OF  THE  UNITS.  IF  BETA  IS  KNOHN,  OR  IF  YOU  HAVE  A  BOOD  ESTIHA 
TE* 

A2M  PRINT*OF  BETA,  YOU  NAY  USE  OPTION  A,  'CHARACTERISTIC  LIFE  CALCULATION." 
A3M  PRINTiPRINTiPRINT*PRESS  THE  ENTER  KEY  TO  CONTINUE.*) 

A4M  INPUT  Bit  IF  Q«<>**  THEN  S2M 

ASM  CLSiPRINT*  2.  PRESENT  RISK  ANALYSIS  (PRESRISK)  •  THIS  CODE  IS  USED  TO 
CALCULATE* 

AAM  PRINT*THE  EIPECTED  NUHBER  OF  FAILURES  TO  HAVE  OCCURRED  TO  DATE  OVER  THE  LIF 
E  OF* 

ATM  PRINT*rHE  UNITS  OF  THE  SAHPLE.  THE  CODE  IS  EICELLENT  FDR  VERIFYINB  THE  FAI 
LURES* 

ABM  PRINT'AS  NELL  AS  'ETA*  BY  COHPARINB  ANSHERS  NITH  KNOHN  FAILURES  IN  THE  POPU 
LATION.* 

A9M  PRINT'DATA  REQUIRED  ARE)  (1)  BETA,  (2)  ETA,  (3)  NUHBER  AND  ABE  OF  EACH  UNIT 
OR* 

7Mf  PRINT'BROUP  OF  UNITS  NITH  THE  8AHE  ABE.  THE  OUTPUT  FROH  THE  CODE  ISi* 

71IB  PRINT' (I)  THE  PERCENT  IN  EACH  BROUP  EIPECTED  TO  FAIL,  (2)  THE  NUHBER  IN  EAC 
H  BROUP* 

72M  PR1NT*EIPECTED  TO  FAIL,  AND  (3)  THE  TOTAL  NUHBER  OF  EIPECTED  FAILURES  FDR  T 
HE* 

73M  PRINT*POPULATION.* 

74M  PRINTiPRINTiPRINTiPRINT*PRESS  THE  ENTER  KEY  TO  CONTINUE. ')i  INPUT  Dll  IF  BIO 
"  THEN  ASM 

7Sff  CLSiPRINT*  3.  FUTURE  RISK  ANALYSIS  (FUTRISKS)  •  THIS  CODE  IS  USED  TO  C 
ALCULATE* 

TAM  PRINT*THE  EIPECTEB  NUHDER  OF  FAILURES  OVER  A  SPECIFIED  FUTURE  TINE  PERIOD  F 
OR* 

77M  PRINT'D  POPULATION  THAT  ACCUHULATE8  NONE  BPERATIN6  TIHE  OVER  THAT  TIRE  PERI 
OD.* 

7BM  PRINT'IT  IS  ASSURED  THAT  THERE  ARE  NO  REPAIRS  SO  FAILURES  ARE  FOR  THE  ORIBI 
IML* 

7fM  PRINT'POPULATION  ONLY.  FOR  A  NONE  COHPUI  ANALYSIS  SHERE  PARTS  ARE  REPAIRE 
D* 

OMI  PRIHT'AND  RETUMCD  TO  SERVICE,  SEE  OPTION  4,  THE  NONTE  CAMJ  RISK  ANALYSIS. 
■ 

DIM  PRINT'SATA  REQUIRES  AREi  (I)  SETA,  (21  HA,  13)  HONTHS  INTO  THE  FUTURE  THAT 
TIC* 

S2M  PRIHT'ANALYSIS  SILL  COVER,  141  AVERAK  RONTNLY  SPERATINB  HOURS  PER  UNIT  OVE 
R* 

03N  PRINT'THE  TIHE  PERIOS,  AND  (SI  NUHIER  AND  AK  OF  EACH  WflUP  OF  UNITS  NITH  T 
HI  IMK* 

04M  PRIHT'ABc.  THE  OUTPUT  FROH  THIS  COSE  ISi  (1)  THE  PERCENT  IN  EACH  BROUP  EIP 
ECTED* 
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8511  PRINT'TO  FAIL,  (2)  THE  NUHBER  IN  EACH  GROUP  EIPECTED  TO  FAIL,  131  CUHULATIV 

E' 

B6ff  PRINT’FAILURES,  AND  MI  THE  TOTAL  NUHOER  OP  EIPECTED  FAILURES  IN  THE  POPULA 
TION.' 

B7lf  PRINT:PRINTiPRINT‘PRESS  THE  ENTER  KEY  TO  CONTINUE.') 

BBII  INPUT  Oil  IF  0«<>"  THEN  7Slf 

B9II  CLS:PRINT’  4.  HEIBULL  FAILURE  ANALYSIS  -  HONTE  CARLO  (NEIIRISK)  •  THIS 
CODE  IS* 

9111  PRINT'A  CONPREHENSIVE  ANALYTICAL  TOOL  THAT  CAN  IE  USED  TO  FORECAST  NUHIERS 
OF* 

9IBI  PRINT'FAILURES  AS  NELL  AS  THE  FAILURE  TINES  IN  TERNS  OF  OPERATING  HOURS  OR 
CYCLES.' 

9211  PRINT'IT  IS  A  STATISTICAL  CODE  THAT  RAKES  THOUSANDS  OF  CALCULATIONS  TO  ALLO 

N' 

9311  PRINT'STATISTICAL  AVERAGES  TO  IE  CALCULATED.  IT  IS  EITRENELY  ACCURATE  NHEN 

■ 

9411  PRINT'REBUIRED  INPUT  DATA  IS  EITRENELY  ACCURATE.  IT  IS  CAPAILE  OF  PROVIDIN 
G* 

?Sff  PRINT'SENSITIVITIES  80  THAT  LESS  ACCURATE  DATA  CAN  IE  USED  TO  ARRIVE  AT' 
9611  PRINT'REASONAILE  SOLUTIONS  AND  ALLON  FOR  INPACT  ANALYSIS.  DATA  REQUIRED  AR 
El* 

9711  PRINT'(I)  BETA,  (2)  ETA,  13)  NUNBER  AND  AGE  OF  EACH  GROUP  OF  UNITS  HITH  THE 
SANE  INITIAL  TINE,  (4)  TOTAL  NUNBER  OF  ENGINES  IN  THE  8ARPLE,  (S)  NUNBER  0 
F  HONTHS  IN  THE  ANALYSIS,  (6)  AVERAGE  OPERATING  HOURS  PER  NONTH  PER  PART  OVER 
THE  TINE* 

9811  PRINT'OF  THE  ANALYSIS,  (7)  THE  INSPECTION  INTERVAL  AT  NHICH,  IF  REACHED  lEF 
ORE  A* 

99ff  PRINT'FAILURE  OCCURS,  ALL  PARTS  CONSIDERED  ARE  HADE  GOOD-AS-NEN  OR  TERO-TIN 
ED,' 

llfff  PRINT* (8)  NUNBER  OF  FAILURE  NODES  IN  THE  ANALYSIS,  AND  191  THE  ENGINE  NANE 

• 

HIM  PRINT'NOTE  THAT  BETA  AND  ETA  NUS^  BE  FURNISHED  FOR  EACH  FAILURE  NODE.  ALS 
0* 

11211  PRINT'NOTE  THAT  LARGE  NUNBERS  OF  ENGINES  AND  NULTIPLE  FAILURE  NODES  GREATL 

Y* 

1I3M  PRINT* INCREASE  THE  RUNNING  TINE.  THE  OUTPUT  FRDH  THIS  CODE  18i  (1)  FAILUR 
E  TINES' 

if4M  PRINT' (2)  NEN  FAILURE  TIRES,  (3)  NUNBER  OF  FAILURES  PER  ENGINE,  (4)  IKNTI 
FICATIOK  OF  FAILURE  NODE,  IS)  AVERAGE  NUNBER  OF  FAILURES  PER  ENGINE  OVER  THE  NUN 
lER  OF  ITERATIONS,  (6)  CUNULATIVE  FAILURES  PER  ENGINE,  AND  (7)  AVERAGE  FAIL 
URES* 

lISM  PRINT'FOR  ALL  ENGINES  FOR  ALL  ITERATIONS.' 
lAGfl  PRINTiPRlNTiPRINT'PRESS  ENTER  KEY  TO  CONTINUE.*) 

1I7II  INPUT  Ml  IF  MO"  THEN  MM 

HIM  CLSiPRINT*  9.  NEIIUU  FAILURE  ANALYSIS  -  WORT  PRINT-OUT  ISHRTNEIII  • 
THIS  CODE* 

IMM  PRINT* IS  ALNOST  IDENTICAL  T&  THE  PREVIOUS  CODE  EICEPT  FOR  THE  MOUNT  OF  OU 
TPUT.' 

HIM  PRINT'IN  ORDER  TO  SPEED  UP  THE  ANALYSIS,  ONLY  HURIER8  OF  FAILURn  ARE  WTP 
UT' 

HIM  PRINT'AND  FAILURE  TINES  AND  H0K8  OF  FAILURE  ARE  ELIHIRATEI.  THIS  CODE  IS 

■ 

1I2M  PRINT'VERY  USEFUL  AFTER  IT  NAS  BEEN  KTERRINEI  NHICH  FAILURE  NOKS  lONINAT 
E* 

I13N  PRINT'AND  SHEER  NUNBERS  ARE  OF  PRINE  INTEREST.  HANY  NONE  ENGINES  NAY  BE  A 
NALYSEB* 

114M  PRINT'IN  THE  BANE  ANOUNT  OF  TINE  MB  THE  VOLUNE  OF  PAPER  GEHERATEI  IS  VERY 
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115««  PRINT'SIBNIFICANTLY  LESS.' 

lUH  PR1NT;PRINT;PRINT*PRESS  THE  ENTER  KEY  TO  CONTINUE.') 

11711  INPUT  At:IF  A$<>"  THEN  IIBII 

llSff  CLS!PRINT'  6.  CHARACTERISTIC  LIFE  CALCULATION  (ETACALCI  -  THIS  COOE  I 
S  USEFUL' 

11911  PRINT'NHEN  BETA  IS  KNONN  FOR  THE  FAILURE  NODE  AND  GOOD  FAILURE  DATA  IS  AVA 
ILABLE' 

12fff  PRINT'TO  CALCULATE  ONLY  THE  CHARACTERISTIC  LIFE.  DATA  REQUIRED  ARE:  111  B 
ETA,' 

12111  PRINT' (2)  TOTAL  NUNBER  OF  FAILURES  THAT  SATA  IS  AVAILABLE  FOR,  AND  13)  DAT 

A' 

12211  PRINT'PAIRS  OF  NUNBERS  OF  FAILURES  AND  OPERATING  TINE  AT  FAILURE.  THE  OUT 
PUT* 

123IB  PRINT'FROH  THIS  COOE  IS  THE  CALCULATED  VALUE  OF  THE  CHARACTERISTIC  LIFE.' 
124IB  PRIXT;PRiNT!PRINT'PRESS  THE  ENTER  KEY  TO  CONTINUE. ') 

12411  INPUT  AI;1F  AtO"  THEN  llBlf 

12421  CLS:PR1NT'  7.  CONFIDENCE  INTERVAL  CALCULATION  (CNFINTBE)  -  THIS  CODE 
CALCULATES' 

1243B  PRINT'UPPER  AND  LONER  CONFIDENCE  BOUNDS  FOR  BOTH  BETA  AND  TINE  TO  FIRST  FA 
ILURE.' 

12441  PRINT'CALCULATIONS  CAN  BE  HADE  FOR  CONFIDENCE  LEVELS  OF  1.91,  I.9S,  OR  f.9 
9.' 

124Sf  PRINT'THESE  UPPER  I  LONER  LINITS  ARE  INDICATIONS  OF  THE  ACCURACY  ONE  CAN  E 
YPECT' 

12461  PRINT'FROH  THE  NANY  CALCULATIONS  THAT  CAN  BE  HADE  FROH  THESE  CODES.’ 

12471  PRINT;PRINT:PRINT‘PRESS  THE  ENTER  KEY  TO  CONTINUE.') 

124SI  INPUT  BI;IF  OtO"  THEN  12421 

12SBf  CLS:PRINT'  B.  RELIABILITY  AND  CONFIDENCE  INTERVALS  FOR  RELIABILITY  (R 
ELIABIY)  -• 

12Slf  PRINT'THIS  CODE  CALCULATES  THE  RELIABILITY  OF  A  CONPONENT  AT  ANY  TINE  BASE 
D  ON* 

12S2B  PR I NT 'THE  VALUES  OF  BETA  AND  ETA.  YOU  HAY  THEN  CALCULATE  THE  CONFIDENCE  I 
NTERVAL' 

12331  PRINT'FOR  THIS  RELIABILITY  AT  A  CONFIDENCE  LEVEL  OF  f.9f,  1.95,  OR  B.99.' 
12532  PRINT'ALSO  PRESENTED  IS  THE  CORRESPONDING  PROBABILITY  OF  FAILURE.' 

I2S4B  PRINT:PRINT:PRINT'PRESS  THE  ENTER  KEY  TO  CONTINUE.') 

12551  INPUT  01:  IF  QtO"  THEN  I23BB 

12611  CLS:PR1NT'  9.  HISTORICAL  BETA  VALUES  IBETAHIST)  •  THIS  CODE  PRINTS  OU 
T  A  LIST  OF* 

126IB  PRINT 'PROBABLE  VALUES  OR  RANGES  OF  BETA  FOR  SORE  COHHON  NODES  OF  FAILURE  I 
N  GAS' 

12621  PRINT'TURBINE  COHPONENTS.  NHILE  THEK  HISTORICAL  VALUES  SHOULD  NOT  BE  TAK 
EN  AS' 

1263B  PRINT'ABSOLUTE,  THEY  REPRESENT  REASONABLE  STARTING  VALUES,  ESPECIALLY  FOR 
PERFORNING' 

1264B  PRINT’SENSITIVITY  ANALYSES.' 

12651  PRINT:PRINTiPRINT'PRESS  THE  ENTER  KEY  TO  CONTINUE.') 

1266B  INPUT  Bit  IF  BIO"  THEN  12611 

I27BB  CLStPRINT'  If.  NEIBULL  PARANETER  CALCULATION  IPNA  CO)  -  THIS  CODE  IS 
SINILAR  TO* 

I271B  PRINT'CODE  NUNBER  1  EXCEPT  THAT  IT  CAN  PROVIDE  THE  VALUES  OF  BETA  AND  ETA 
NHICH’ 

I272B  PRINT'NAIINIZE  THE  ’LIKELIHOOD’  OF  OBTAINING  THE  OBSERVED  BATA.  THERE  ARE 
CASES' 

12731  PRINT'NHERE  THESE  VALUES  NAY  BE  DIFFERENT  THAN  THOSE  OBTAINED  IN  CODE  I  BY 

A' 

I274f  PRINT'REASONABLE  ANOUNT,  IF  THERE  IS  A  QUESTION,  BOTH  COOES  SHOULD  BE  RUN 
AND' 
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1275«  PRINT-SENSITIVITIES  ESTABLISHED.' 

12752  PRINT;PRINT;PR1NT‘PRESS  THE  ENTER  KEY  TO  CONTINUE.') 

12753  INPUT  At:  IF  AtO"  THEN  12711 

12755  CLS;PRINT'  11.  NEIBULL  FAILURE  ANALYSIS  FOR  OVER  lllf  EN6INES/PARTS  • 

■ 

12761  PRINT'THIS  CODE  IS  SIHILAR  TO  THE  PREVIOUS  THO  NONTE  CARLO  CODES  EICEPT  TH 
AT* 

12765  PRINT'IT  IS  OPTINIZEO  TO  ANALYZE  A  HAIINUN  OF  EN61NES/PARTS.  THIS  CODE  SH 
OULD* 

12771  PRINT'BE  USED  AFTER  THE  DONINANT  FAILURE  NODE  NAS  BEEN  DETERHINED  AND  NO  N 
ORE' 

12775  PRINT'THAN  ONE  FAILURE  NODE  SHOULD  BE  ANALYZED  AT  A  TINE.  THE  INPUT  IS  TH 
E  SANE' 

127E  'RINT'AS  IN  CODES  (4)  AND  (SI  BUT  THE  OUTPUT  IS  LINITED  TO  THAT  OF  CODE  15 

).‘ 

127S5  PRINT'ONLY  THE  TOTAL  FAILURES  ARE  6IVEN  PER  ITERATION  ALON6  NITH  THE  AVERA 
6ES.' 

1279B  PR1NT:PR1HT:PRINT'PRESS  THE  ENTER  KEY  TO  CONTINUE. 

12795  INPUT  At!  IF  AtO"  THEN  12755 

12ei(  CLS:PRINT‘  12.  HEIBAYES,  NHEN  NEIBULL  PLOTS  ARE  NOT  POSSIBLE 
12615  PRINT'HHEN  THERE  IS  INSUFFICIENT  FAILURE  DATA  TO  CALCULATE  THE  NEIBULL  SLO 
PE  BETA' 

12610  PRINT'AND  THE  CHARACTERISTIC  LIFE  ETA  HE  HAY  HAKE  ASSUHPTIONS  TO  ARRIVE  AT 
THE' 

12815  PRINT'BEST  ESTIHATES  AND  HAKE  CALCULATIONS  TO  DETERHIHE  THE  DESIRED  LIFE, 

i.i.,' 

12620  PRINT'S.!,  81,  610,  OR  BS0  LIFE.  FIRST,  IT  IS  NECESSARY  TO  HAKE  THE  BEST 
6UESS' 

12625  PRINT'REBARDINE  THE  FAILURE  RODE  SUCH  AS  LCF,  HCF,  OR  OTHERS,  THEN  USE  CO 
DE* 

12830  PRINT' (6),  CHARACTERISTIC  LIFE  CALCULATION,  TO  DETERHINE  A  BEST  ESTIHATE  0 
F  ETA.' 

12835  PRINT'THESE  FORH  THE  INPUT  FOR  THIS  CODE  HHICH  THEN  CALCULATES  THE  APPRDPR 
lATE' 

12640  PRINT'LIFE  OF  THE  PART  IN  QUESTION.' 

12845  PRINT:PR1NT:PRINT'PRESS  THE  ENTER  KEY  TO  CONTINUE.'; 

12850  INPUT  At;  IF  AtO"  THEN  12810 

12855  CLSiPRINT'  13.  ZERO-FAILURE  TEST  PLAN  FOR  SUBSTATIATION  TESTING  -' 
12860  PRINT'THIS  CODE  CALCULATES  THE  NUHBER  OF  ENGINES/PARTS  THAT  RUST  BE  TESTED 
NITHOUT' 

12665  PRINT'FAILURE  IN  ORDER  TO  DENONSTRATE  THAT  A  GIVEN  FAILURE  NODE  HAS  BEEN  E 
ITHER' 

12870  PRINT'ELININATED  OR  SUBSTANTIALLY  IHPROVED.  INPUTS  REBUIRED  ARE  (1)  NEIBU 
LL  SLOPE' 

12675  PRINT'BETA,  (2)  CHARACTERISTIC  LIFE  ETA,  AND  13)  AN  ESTIHATE  OF  A  REASONAB 
LE' 

12860  PRINT'ANOUNT  OF  TEST  TINE,  RECOGNIZING  THAT  AT  LEAST  THREE  PARTS  OR  NONE  N 
UST' 

12885  PRINT'EACH  BE  TESTED  FOR  THAT  AHOUNT  OF  TINE.  THE  CODE  ALLOUS  A  SECOND  AN 

O' 

12890  PRINT'THIRD  TEST  TINE  ESTIHATE  (OR  RORE)  AND  ALSO  PROVIDES  FOR  AN  ALTERNAT 

E' 

12895  PRINT'NETHOD  OF  TEST  PLAN  FORNUIATION.  THEN  TEST  PLAN  IS  OUTPUT  IN  TERNS 
OF* 

12900  PRINT'A  SANPLE  SIZE,  EACH  OF  NHICH  RUST  BE  TESTED  FOR  A  GIVEN  NUHBER  OF  NO 
UR8* 

12915  PRINT'NITHOUT  FAILURE  IN  ORDER  TO  DENONSTRATE  A  SIGNIFICANT  INPROVEHENT  IN 
LIFE.' 
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1291«  PRINT;PR1NT:PRINT‘PRESS  THE  ENTER  KEY  TO  CONTINUE.'; 

12?1S  INPUT  Ml  IF  A«>"  THEN  128SS 

12921  CLSiPRINT'  14.  NON-ZERO  FAILURE  TEST  PLAN  GENERATION  -  THIS  CODE  IS  S 
IHILAR* 

12925  PRINT'TO  THE  PREVIOUS  CODE  EICEPT  THAT  IT  CALCULATES  A  TEST  PLAN  THAT  ALLO 
NS* 

12931  PRINT'FOR  FAILURES.  HERE  THE  GOAL  IS  TO  DEVISE  A  TEST  PLAN  TO  OENONSTRATE 
THE* 

12935  PRINT'ACHIEVENENT  OF  A  GIVEN  IHPROVEHENT  IN  A  PARTS  CHARACTERISTIC  LIFE. 
THE  TEST' 

12941  PRINT'IS  PASSED  IF  ALL  PARTS  ARE  RUN  FOR  A  SPECIFIED  NUHIER  OF  TEST  HOURS 

• 

12945  PRINT' (OR  CYLES)  HITH  NO  HORE  THAN  A  CALCULATED  NUHIER  OF  FAILURES.  INPUT 
CONSISTS' 

12951  PRINT'OF  (1)  CURRENT  CHARACTERISTIC  LIFE  ETA,  (2)  CHARACTERISTIC  LIFE  HITH 

AN' 

12955  PRINT'IHPROVED  PART  OR  FII,  (3)  THE  NEIOULL  SLOPE  DETA  FOR  THE  FAILURE  HOD 

E,* 

12961  PRINT'AND  (4)  A  REASONABLE  ESTINATE  OF  TEST  HOURS  FOR  EACH  TEST  ARTICLE.' 
12965  PRINT'OUTPUT  CONSISTS  OF  A  SANPLE  SIZE,  THE  NUHIER  OF  TEST  HOURS  FOR  EACH 
PART' 

12971  PRINT'AND  THE  NUHBER  OF  FAILURES  ALLOHED  FOR  A  SIKCESSFUL  TEST.' 

13791  PRINTtPRINTiPRINT 

13811  PRINT'PRESS  THE  ENTER  KEY  TO  RETURN  TO  THE  OPTIONS  HENU.'i 
13911  INPUT  At: IF  AfO"  THEN  CLSiGOTO  I38II 
14IH  CLSiGOTO  Ilf 

29998  END 

29999  CLSiEND 

3fiM  CLSiPRINT'SAVING  HEIBINTR  ON  DISK  B'iSAVE  'liHEIlINTR'iEND 
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5  REH 
7  HIDTH  80 

If  REnttiiiiiittiiimtit  pROSRAn  meiber  iitiitiititiitittttittittititi 

12  KEY  OFF 
14  COLOR  6,0,0 
100  CLS 
150  60T0  2800 
1200  IF  A>9ff  GOTO  29999 
1705  IF  A*1  THEN  1800 
1710  IF  A<2  THEN  1910 
1715  IF  A*3  THEN  2100 
1720  IF  A«4  THEN  2110 
1725  IF  A*S  THEN  2200 
1730  IF  A«6  THEN  2300 
1735  IF  A<7  THEN  2400 
1740  IF  A<8  THEN  2500 
1745  IF  A<9  THEN  2600 
1750  IF  A«10  THEN  2700 
1755  IF  A*ll  THEN  2720 
1760  IF  A*12  THEN  2710 
1765  IF  A*13  THEN  2712 
1768  IF  A*14  THEN  2714 
1771  IF  Asl5  THEN  2750 
1774  IF  A«16  THEN  2760 
1777  IF  AMT  THEN  2765 
1780  IF  A«18  THEN  2770 
1785  IF  A018  THEN  1795 

1795  CLSiPRINT'NOT  A  VALID  CHOICE  •  SEE  NENU.MFOR  YM  TO  SiBEEPiNEIT  Y:FOP  >M 
TO  150f!NEIT  liGOTO  2800 
1800  CHAIN  'SUSHEI8L' 

1900  CHAIN  'PRESRISK* 

2000  CHAIN  'FUTRISKS' 

2100  CHAIN  'NEIBRSKl' 

2200  CHAIN  'SHTHEIB2' 

2300  CHAIN  'ETACALC 
2400  CHAIN  'CNFINTBE' 

2500  CHAIN  'RELIABTY* 

2600  CHAIN  'BETAHIST' 

2700  CHAIN  'PNAHEIBL' 

2710  CHAIN  'NEIBAYES* 

2712  CHAIN  'ZOFAILSB* 

2714  CHAIN  •NIFTESTP* 

2720  CHAIN  'BIGNEIBL* 

2750  CHAIN  'DATAFILE* 

2755  CLS:PRINT'HAKE  ANOTHER  CHOKE  •  SEE  HENU.'jFOR  IM  TO  ISHiNElT  IiGOTO  2800 

2760  CLSiPRINT'HAKE  ANOTHER  CHOICE  -  SEE  HENU.'iFOR  2M  TO  ISIBtNETT  liUTO  2100 

2765  CLSjPRINT'NAKE  ANOTHER  CHOICE  -  SEE  HENU.'jFOR  IM  TO  ISHiNEIT  IiSOTO  2800 

2/70  CLSjPRINT'HANE  ANOTHER  CHOICE  •  SEE  HENU.'iFOR  Y»l  TO  SilEEPiNEIT  TiFOR  IM 

TO  1S00INEIT  IiGOTO  2800 
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2e««  CLSrPRINT*  MENU' 

2911  PRINT'  NEIBULL  ANALYSIS  ROUTINE'iPRINT 

3111  PRINT’  1.  NEIBULL  PARANETER  CALCULATION.  (6E  CO)' 

31fl  PRINT'  2,  PRESENT  RISK  ANALYSIS.' 

3211  PRINT'  3.  FUTURE  RISK  ANALYSIS.' 

3311  PRINT'  4.  NEIBULL  FAILURE  ANALYSIS  •  NONTE  CARLO  ANALYSIS.’ 

3411  PRINT'  S.  NEIBULL  FAILURE  ANALYSIS  *  SHORT  PRINT-OUT.' 

3Sff  PRINT'  A.  CHARACTERISTIC  LIFE  CM.CULATION.' 

3Ail  PRINT'  7.  CONFIDENCE  INTERVAL  CIRCULATIONS  FOR  BETA  l>  TINE  TO  FIRST  FA 

ILURE.' 

37ff  PRINT'  B.  RELIABILITY  AND  CONFIDENCE  INTERVAL  FOR  RaiABILITY.' 

3BII  PRINT'  9.  HISTORICAL  VALUES  OF  BETA.' 

3911  PRINT'  II.  NEIBULL  PARANETER  CALCULATION  N/  NAI.  LIKELIHOOD  VALUES.  (PN 

A  CO)' 

3912  PRINT'  11.  NEIBULL  FAILURE  ANALYSIS  -  FOR  OVER  ilff  EN6INES/PARTS.' 

3913  PRINT'  12.  NEIBAYES  •  NHEN  NEIBULL  PLOTS  ARE  INPOSSIBLE' 

3916  PRINT'  13.  ZERO  FAILURE  TEST  PLAN  FOR  SUBSTANTIATION  TESTINB.’ 

3911  PRINT'  14.  NON-ZERO  FAILURE  TEST  PLAN  6ENERATI0N.' 

3913  PRINT'  13.  NEIBULL  PARANETER  CALCULATION  AND  SAVE  INPUT  DATA  (PNA)' 

3921  PRINT'  16.  FOR  FUTURE  USE  -  NOT  YET  AVAILABLE.' 

3923  PRINT'  17.  FOR  FUTURE  USE  -  NOT  YET  AVAILABLE.' 

3931  PRINT'  18.  FOR  FUTURE  USE  -  NOT  YET  AVAILABLE.' 

3981  PRINT:PR1NT'T0  CONTINUE  CHOOSE  OPTION  NO.  OR  911  TO  QUIT.';; INPUT  A;60T0  1 
211 

4111  REN 

13791  PRINT:PRINT;PRINT 

13811  PRINT'PRESS  THE  ENTER  KEY  TO  RETWN  TO  THE  RAIN  NENU.'i 
13911  INPUT  A$;IF  AlO"  THEN  12711 
Mill  CLS:eOTO  2811 

29998  END 

29999  CLSiEND 

31111  CLS;PRINT'SAVIN6  NEIBER  ON  DISK  B':SAVE  'BiHElBER':END 
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If  REN 

2f  REN  ittutttnnuttunt  probran  susneibl  iittutitiittiiiitttittitittt 

31  REN 

4f  REN 

4S  CIS 

211  S2*l 

3tl  S3«f 

411  S4«f 

Sff  SS«I 

All  PRINT'  SUSPENDED  NEIBULL  PARAHETER  CALCin.ATION  PR%RAN  (BEN  ELEC  CO) 

• 

7lf  PRINT'  AS  IHPROVED  BY  J.  L.  BYERS,  CODE  AfS2,  NAVAIRDEVCEN,  NARHINSTER,  PA 
IB974' 

711  PRINT'  PHONEi  (21S)441-232A  HORN  (21S)A72-87f2  HONE' 

74S  LPRINT'  SUSPENDED  NEIBULL  PARAHETER  CALCULATION  PR06RAH  (BEN  ELEC  CO) 

• 

7Sf  LPRINT'  AS  IHPROVED  BY  J.  L.  BYERS,  CODE  AfS2' 

751  LPRINT'  NAVAL  AIR  DEVElOPHENT  CENTER' 

752  LPRINT'  NARHINSTER,  PA  18974' 

NT 

757  LPRINT'  18  FEB  86' 

761  LPRINTiLPRlNTiLPRlNTsLPRlNT 
811  PRINT:PRINT|PR1NT 

911  PRINT'DATA  INPUT  -  TYPE  IN  THE  FOLLONINB  t'jPRIHT 

Ifff  PRINT'88ff  DATA  N.K'iPRlNT 

(Iff  PRINT'  NHERE  N  *  THE  TOTAL  NUHBER  IN  THE  SAHPLE  AND' 

12ff  PRINT'  K  «  THE  NUHBER  OF  FAILURES' 

llff  PRIHTsPRINT'8911  DATA  Tl,Fl,T2,F2,T3,F3,.,.,ETC.'tPRINT 

14fl  PRINT'  NHERE  T1  IS  THE  ABE  IN  HOURS  OF  THE  FIRST  FAILURE' 

15ff  PRINT'  FI  IS  THE  CUHULATIVE  COUNT  OF  THE  FIRST  FAILURE 

t 

Uff  PRINT'  T2  IS  THE  ABE  IN  HOURS  OF  THE  SECOND  FAILURE' 

1711  PRINT'  F2  IS  THE  CUNIH.ATIVE  COUNT  OF  THE  SECOND  FAILUR 

E,  itc.' 

18ff  PRINT'USE  ADDITIONAL  LINES  AS  NEEDED  TO  ADD  HORE  DATA.' 

1911  PRINT'NHEN  THE  LAST  DATA  IS  ENTERED,  INPUT  (RUN  2III>  TO  CONTINUE.' 

2fff  STOP 
2111  CLS 
22tf  READ  N,K 

23ff  PRINT'TOTAL  NUHBER  IN  SAHPLE  IS  '(NiPRINT 
24fl  PRINT'TOTAL  NUHBER  OF  FAILURES  IS  'iKiPRlNT 
25ff  PRINT'NEIBULL  PLOTTINB  POSITIONS' 

26fl  PRINT 

27M  PRINT  'CUHH  ',*  HOURS','  PERCENT' 

2888  PRINT  'FAIL','  AT','  AT' 

2981  PRINT  'COUNT','  FAIL','  FAIL' 

2958  LPRINT'TOTAL  NUHBER  IN  SAHPLE  IS  'iNiLPRINT 
2955  LPRINT'TOTAL  NUHBER  OF  FAILURES  IS  I'lXiLPRINT 
2968  LPRINT'HEIBULL  PLOTTINB  POSITIONS' 

2965  LPRINT 

2978  LPRINT'CUHH  ','  HOURS','  PERCENT' 

2975  LPRINT'FAIL','  AT','  AT' 

2988  LPRINT'COUNT*,'  FAIL','  FAIL' 

3H8  C0«-.H81 

3188  H«8 

3288  FOR  l«l  TO  K 
3388  READ  F,C 
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34«f  IF  C-COM  THEN  3611 
3511  D*(NM-RI/(Nt2-C) 

3611  N*n*o 

3711  L«(l*(2*(-l/H))M(H-ll/(N-l))l(2*(l-l/NI-l)l 

3811  Ll>INT(llflffllL4.S)/llfl 

3911  PRINT'  •  C.F,'  'Ll 

3915  LPRINT'  '  C,F,'  'Ll 

4111  N«L06IL06(1/(1-L))) 

4111  Z>L06(F) 

4211  St>SWZ 
4311  S2>S24ZtZ 
4411  S3>S3«H 
4511  S4«S4*NIN 
4681  S3«S3«ZtH 
4711  CO«C 
4811  NEIT  I 

4851  LPRINT:LPRINTiLPRINT:LPRINT 

4911  PRINTiPRINT'PRESS  ENTER  KEY  TO  CONTINUE'] 

5811  INPUT  Rt 
5188  CIS 

5288  IF  KM  THEN  8288 
5388  N«K 

5488  A2MS2IS3-S1IS5) / (NtS2-Sl tSl ) 

5588  B2«  (NtS5-SllS3)  / (NtS2-SltSU 
5688  S7iSOR((S2‘SllSl/N)/N) 

5788  S9«SflRUS4-S3IS3/NI/NI 
5888  Rl«(S5/N-SllS3/(NtN))/(S7tS9l 
5988  L»EIP(-(A2I/(82)I 
6888  H>L06(L06(1. 1111118)1 
6188  83«E1PHN-A2)/B2) 

6288  N1«L06(L06(2)) 

6388  B4<EIP((N1-A2)/B2I 
6488  PRlNTiPRINT 

6588  PRINT  'LEAST  SQUARES  ESTINATE  OF  NEIBOLL  PARANETERS'rPRINTiPRlNT 
6688  PRINT  'SLOPE  (BTA)','CHAR  LIFE', *8-18  LIFE', *8-58  LIFE'.'CORR  COEFF 
6788  PRINT  B2,L,B3,B4,R1 
6688  PRINTjPRlNTiPRINT 

6858  LPRINT'LEAST  SOUARES  ESTINATE  OF  NEIWLL  PARWETERS'jLPRIHT 

6855  LPRINT'SLOPE  TiTAl'.'CHAR  LIFE', *8-18  LIFE','1-58  LIFE'.'CORR  COEF' 

6868  LPRINT  82, L, 83,84, R1 

6865  LPRINTiLPRINTiLPRINTiLPRINT 

6988  PRINT  'PRESS  ENTER  KEY  TO  CONTINUE'; 

7888  INPUT  R4 
7188  CLS 

7288  PRINT  'INSTANTANEOUS  FAILURE  RATES  VS  A6E' 

7388  PRINT:PRINT 

7488  PRINT  '  A6E','  INST  F/R' 

7458  LPRINT'INSTANTANEOUS  FAILURE  RATE  VS  A6E' 

7455  LPRINT 

7468  LPRINT'  AGE’,'  INST  F/R' 

7588  FOR  S«1  TO  3 
7688  FOR  J8*2  TO  18  STEP  2 
7788  r>J8ll8*8 
7888  I«TM82-1II82/L*82 
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7911  PRINT  T,I 
7951  LPRINT  T,I 
Bfff  NEXT  Jl 
Sill  NEXT  S 
8151  CLOSE 

8155  LPRINTiLPRINT:LPRINT:LPRINT 

BIM  PRlNTiPRINTtPRINTMF  YOU  NOULD  LIKE  R  PLOT  OF  THE  HEI8ULL.  EXIT  THIS  PR06RR 
N  BY  TYPINS  <N>  -* 

8165  PRINTiPRINT'RETURN  TO  DOS  (SYSTEN) 

8178  PRINTiPR'NT'AND  TYPE  IN  (NEIBULL.IAT)* 

8281  PRINTtPRINTtPRINTtPRlNTsPRINTiPRINT’OO  YOU  HAVE  ANOTHER  ANALYSIS  TO  RUN  •  I 
Yl  OR  (N)  INPUT  A( 

8281  CLS 

8282  IF  A9«'N*  THEN  CHAIN  'HEIBER' 

8283  IF  A9>*Y*  THEN  1888 
8285  CLS16OTO  8288 

8218  CHAIN  'HEIBER* 

8888  DATA  18,18 

8918  DATA  85,1,135,2,158,3.158,4,198,5,288,6,288,7,248,8,248,9,258,18 
9999  CLStPRlNT'SAVING  SUSNEIBL  ON  DISK  B'iSAVE  'BiSUSHEIBL'sEND 
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1 

CLS 

2 

CLS 

4 

PRINT' 

PRESENT  RISK  ANALYSIS* 

5 

PRINT' 

NRITTEN  BY  JANES  L.  BYERS' 

6 

PRINT' 

NAVAL  AIR  DEVELOPNENT  CENTER,  CODE  4152* 

7 

PRINT' 

NARHINSTER.  PA  18974* 

9 

PRINT* 

24  FEB  84* 

II 

REN 

11 

PRINT 

12 

REN  Itttlllitttttitttttlltitttitt  PR06RAN  'PRESRISK'  ItltltlllllMtlltltl 

IS 

PRINT'OATA  INPUT  — 

-  ENTER  THE  F0LL0N1N6  i* 

21 

PRINT'4111  DATA  l,H'iPRINT 

2S 

PRINT'  NHERE  1  *  THE  HEIMLL  SLOPE  'KTA" 

31 

PRINT'  AND 

H  ■  THE  CHARACTERISTIC  LIFE  ’ETA" 

3S 

PRINT'4141  DATA  Nl,Tl,N2,T2,...,ttc.*iPRtNT 

41 

PRINT'  NHERE  N1  IS  THE  NUNIER  OF  UNITS  AT  TINE  Tl' 

45 

PRINT' 

Tl  IS  THE  0PERATIN6  TINE  OF  UNITS  Nl* 

SI 

PRINT' 

N2  IS  THE  NUHIER  OF  UNITS  AT  TIRE  T2' 

3S 

PRINT' 

T2  IS  THE  0PERATIN6  TINE  OF  UNITS  N2,  itc.'tPRINT 

M 

PRINT'USE  ADDITIONAL  LINE  AS  NEEDED  TO  ADD  RORE  DATA.' 

iS 

PRINT'HHEN  THE  LAST  DATA  IS  ENTERED.  INPUT  <RUN  7S>  TO  CONTINUE.' 

71 

STOP 

75 

CLS 

74 

DIN  NI2S),  T(25),  F(2S),  NF(2S>,  A(2S) 

81 

PRINT' INPUT  THE  NUN8ER  OF  DATA  PAIRS  3UST  ENTERED'^ 

85 

INPUT  NiPRINTtPRINT 

84 

PRINT' INPUT  THE  EN61NE  AND/OR  CONPONENT  HARE*! 

87 

INPUT  E4 

91 

READ  BTA.ETA 

95 

FOR  I«1  TO  N 

Iff 

READ  Nin.Td) 

US 

NETT  I 

251 

SUN«I 

311 

FOR  1*1  TO  N 

351 

F(II»l-EIP(-lt(TII)/ETAI‘ITAI 

411 

NF(I)«F(ntN(n 

451 

SUH*SUR«NF(I) 

SIf 

NEIT  I 

Sfl 

CLS 

SIS 

PRINT' 

PRESENT  RISK  ANALYSIS' i PRINT 

514 

PRINT' 

NUNIER  OF  FAILURES  EIPECTED' 

517 

PRINT' 

TO  HAVE  OCCURRED  RASED  ON  CURRENT' 

519 

PRINT* 

0PERATIN6  TINES' 

511 

PRINTjPRINT* 

•lEI 

512 

PRINT:PRINTiPRINT 

521 

LPRINT* 

PRESENT  RISK  ANALYSIS'lLPRINT 

521 

LPRINT* 

NUNIER  OF  FAILURES  EIPECTED* 

522 

LPRINT* 

TO  HAVE  OCCURRED  BASED  ON  CURRENT* 

524 

LPRINT* 

OPERATINS  TINES* 

525 

LPRINT* 

NRITTEN  BY  J.  1.  BYERS* i LPRINT* 
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526  LPR1NT:LPRINT:LPRINT 

528  LPRINT'DATA  PAIRS  USED:  (NO.  OF  UNITS,  OPERATING  TIHE)':LPRINT 

529  PRINT'DATA  PAIRS  USED:  (NO.  OF  UNITS,  OPERATING  TINE)‘:PRINT 

531  FOR  I>1  TO  N 

531  PRINT  N(I)i*,';T(I)i*,*j 

532  LPRINT  N(I)|’,*;T(I)|*,‘; 

533  NEXT  I 

534  PRINT:PRINT:LPRINT:LPRINT 

551  LPRINT'NO.  UNITS', 'TINE*, *  '('X  FAIL',*  NO.  FAILS*:LPRINT 

551  PRINT'NO.  UNITS', 'TINE*,'  *(*X  FAIL','  NO.  FAILS':PRINT 

611  FOR  I«1  TO  N 
615  Adl^Fd'.iNd) 

651  PRINT  '  ';Nd),T(I),F(I),*  '(Ad) 

651  LPRINT  •  *)N(I),T(I),F(I),*  'jAdl 

7lf  NEXT  I 

751  PRINT:PRINT:PRINT'TOTAL  FAILURES  *  '|SUH:PRINT 
751  LPRINT:LPRINT:LPRINT*TOTAL  FAILURES  >  '|SUfl:LPRINT 

755  PRINT'VALUE  OF  NEIBULL  SLOPE  BETA  IS*(BTA:PRINT 

756  LPRINT'VALUE  OF  NEIBULL  SLOPE  BETA  IS*)BTA:LPRINT 

757  PRINT'VALUE  OF  CHARACTERISTIC  LIFE  ETA  IS*tETA:PRINT 

758  LPRINT'VALUE  OF  CHARACTERISTIC  LIFE  ETA  IS*|ETA:LPRINT 
aif  CLOSE 

4111  DATA  1.655857,877.3896 

4841  DATA  1,28,1,25,1,184,1,153,1,192,1,198,1,288,1,259,1,278,1,296,1,388,1,326, 
1,341,1,418,1,437,1,581,1,588,1,594,1,623,1,668,1,677,1,611,1,862,1,984,1,1838 
5888  PRINT'OQ  YOU  HAVE  ANOTHER  ANALYSIS  TO  DO  (Yl  OR  (Nl't 
5818  INPUT  At 

5811  IF  A*«'Y'  THEN  2 

5812  IF  A$>'N'  THEN  5858 
5828  CLS:60T0  5888 

5858  CHAIN  'NEIBER' 

9998  END 

9999  CLS;PRINT'SAVIN6  PRESRISK  ON  DISK  B':SAVE  *B:PRESRISK':END 
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2 

CLS 

If 

PRINT* 

FUTURE  RISK  ANALYSIS* 

2f 

PRINT* 

HRITTEN  BY  JANES  L.  BYERS' 

3f 

PRINT* 

NAVAL  AIR  DEVELOPNENT  CENTER,  CODE  GfS2 

35 

PRINT* 

HARHINSTER,  PA  18974* 

4f 

PRINT* 

1  APRIL  I9B6* 

Sf 

RER 

6f 

RER 

71  RER  ttItIUUtttlItttItnil  PROSRRH  FUTRISKS  ttlttlttlllttlltltHllllt 
81  RER 
ff  RER 

Iff  PRIHT'DATA  INPUT - ENTER  THE  F0LLM1N6 

Ilf  PRINTMfff  DATA  B,H‘ 

12f  PRINT*  HHERE  B  «  THE  NEIfULL  SLOPE  ’KTA" 

13f  PRINT*  H  >  THE  CHARACTERISTIC  LIFE  ’ETA’*tPRINT 

Mf  PRINT*4f4f  DATA  ROS.UTR* 

ISf  PRINT*  HHERE  NOS  IS  THE  NURBER  OF  NONTHS  INTO  THE  FUTURE* 

16f  PRINT*  UTR  IS  THE  RONTHLY  UTILIZATION  RATE*iPRINT 

17f  PRINT*4f49  DATA  Nl,Tl,N2,T2,...,ltc.' 

IBf  PRINT*  HHERE  N1  IS  THE  NURIER  OF  UNITS  AT  TIRE  Tl* 

19f  PRINT*  Tl  IS  THE  0PERATIN6  TIRE  OF  UNITS  NI* 

2ff  PRINT*  N2  IS  THE  NURKR  OF  UNITS  AT  TINE  T2* 

21f  PRINT*  T2  IS  THE  0PERATIN6  TIK  OF  UNITS  N2,  (tc.* 

22f  PRINT*USE  ADDITIONAL  LINES  AS  NEEDED  TO  ADD  RORE  DATA.* 

23t  PRINT*HHEN  THE  LAST  DATA  PAIR  IS  ENTERED,  INPUT  (RUN  25f>  TO  CONTINUE. 'stST 
OP 

241  STOP 
2St  CLS 

26f  PRINT*INPUT  THE  NURBER  OF  DATA  PAIRS  JUST  ENTERED.'; 

27f  INPUT  N:PRINTtPRINT 

272  PRINT* INPUT  THE  ENGINE  AND/OR  CORPONENT  HARE*; 

273  INPUT  E» 

26f  DIR  NF(41) 

29B  DIR  N(41) 

3ff  DIR  TI41I 
3lf  DIR  6(41) 

32f  DIR  KI41) 

33f  DIR  R(41) 

33S  DIR  F(41) 

34f  READ  BETA, ETA 
33f  READ  ROS,UTR 
36f  FOR  I>1  TO  N 
37f  READ  N(I),T(I) 

38f  NEIT  I 
39f  SUR«f 
41f  FOR  I«1  TO  N 

42f  F 1 1 ) >1 -EIP (-1 1 (T ( I ) /ETA) *BETAI 

43f  NEXT  I 

44f  RESTORE 

4Sf  READ  BETA, ETA 

46f  READ  HOS,UTR 

47f  FOR  I«1  TO  N 

4Bf  READ  N(I),T(I) 

49f  NEXT  I 
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SH  N*HOSIUTR 
Sll  FOR  1*1  TO  N 
521  6(I)*T(n4R 

531  K(I)«1-EIP(*1I(6(I)/ETA)‘BETA) 

541  Rin*(K(I)-F(I))/(l-FII)) 

551  NF(I)*R(I)IN(1) 

5il  SUfl*SUn4NF(l) 

571  NEIT  I 
581  CLS 

581  LRRINT*  FUTURE  RISK  ANALYSIS' 

582  LRRINT'  FORECASTED  FAILURES  OVER  THE  HEIT'iNOSi'HONTHS  TINE' 

583  LRRINT'  UTILIZATION  RATE  IS'|UTR;'HOORS  PER  NORTH' 

5B4  LPRINT'  NRITTEN  8Y  JANES  L.  RYERS'lLPRINT' 

NADC,  NARNINSTER,  PA  lB974'sLPRINT' 


EtiLPRINT 

585  PRINT'  future  RISK  ANALYSIS' 

584  PRINT*  FORECASTED  FAILURES  OVER  THE  NEn'}HOS;'HONTHS  TINE* 

587  PRINT'  UTILIZATION  RATE  IS*;UTR| ‘HOURS  PER  NORTH' 

sea  PRINT:PRlNTiPRINT 

598  PRINT'NO.UNITS'.'TIHE'.'X  FAIL', 'NO.FAILS', 'CUN  FAILS' 

595  LPRINT'NO.UNITS'.'TINE'.'X  FAIL', 'NO.FAILS', 'CUN  FAILS' 

688  FOR  1*1  TO  N 

685  CUNFAILS*CUNFAILS*NF(I) 

618  PRINT  USINS '1181  '|N(n,6{n;iPRINT  USIN6 '111.88818  ';R(n, 

NF(I),CUHFAILS 

615  LPRINT  USIN6  '8888  ':N(I),6(n;sLPRINT  USINS  '888.88888  'jRII) 

,NF(I),CUNFAILS 

628  NEIT  I 

638  PRINTiPRINT'TOTAL  FAILURES  »'|SUH 
635  LPRINT:LPRINT'TOTAL  FAILURES  »'jSUN 
888  CLOSE 

4888  DATA  6.557812,2741,127 

4848  DATA  12,88 

4849  DATA  54,488,81,588,54,688,162,781,54,888,189,988,278,1888,216,1188,278,1288 
.  243,1388, 189, 1488,135, 1588,81,  l6n,S4, 1788 

8888  PRINT:PRINTiPRINT'DO  YOU  HAVE  ANOTHER  ANALYSIS  TO  DO  -  lY)  OR  (N)';iINPUT  A 

I 

8818  IF  A»»'Y'  THEN  2 

8815  IF  A8»'N'  THEN  CHAIN  'NEIBER' 

8828  CLSiSOTO  8888 
9993  END 

9999  CLStPRINT'SAVINS  FUTRISKS  OH  IISK  8’iSAVE  'liFUTRISKS'tEND 
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II  RER 
21  RER 

31  RER  niitttttlittittlll  PR06RAR  HEIBRSKl  tttttlittittllltittitlltitittit 


41  RER 

SI  RER 

61  RER 

71  CLS 

81  PRINT* 

NEIBULL  RISK* 

91  PRINT* 

A  RONTE  CARLO  SINULATION* 

95  PRINT* 

HRITTEN  BY  JMIES  L.  BYERS  -  CODE  6132* 

96  PRINT* 

NAVAL  AIR  OEVELOPNENT  CENTER,  HARNINSTER,  PA  18974* 

III  PRINT:PRINT:PRINT 

211  PRINT*  THIS  PR06RAH  PROVIDES  THE  CAPAIILITY  TO  CALCULATE  THE  NURBER  OF  FA 
ILURES* 

311  PRINT'FOR  SEVERAL  DIFFERENT  PARTS  IN  AN  ENGINE  OVER  A  USER  SPECIFIED  TIRE  PE 
RIOD.' 

411  PRINT'UP  TO  25  ENGINES  CAN  BE  ANALYSED  NITH  SCHEDULED  INSPECTIONS  HHERE  THE 
PARTS* 

Sll  PRINT*CONSIOERED  ARE  BROUGHT  TO  ZERO-TIRE,  i.f.,  ARE  RADE  GOOD-AS-NEN.* 

SSI  PRINT 

ill  PRINT*  INPUTS  CONSIST  OF:  NURBER  OF  ENGINES)  TIRE  SINCE  LAST  INSPECTION; 
ANALYTICAL* 

711  PRINT*TIRE  PERIOD;  FLIGHT  HOUR  UTILIZATION  RATE;  TIRE  BETNEEN  INSPECTIONS,  1 
NITIAL* 

Bll  PRINT*TIRE  ON  ENGINES;  NEIBULL  PARANETERS  (BETA  I  ETA);  and  ENGINE  DESIGNATI 
ON.* 

8SI  PRINT 

911  PRINT*  OUTPUT  CONSISTS  OF;  TOTAL  ENGINE  FLIGHT  HOURS;  CURULATIVE  FLIGHT  H 
OURS*  * 

llll'pRINT*TINE  TO  FAIL  FOR  EACH  NODE;  and  TOTAL  NURBER  OF  FAILURES  BY  ITERATION 

I 

tISI  PRINT 

nil  PRINT*TO  CONTINUE  INPUT  1  AND  (ENTER).  TO  QUIT  INPUT  -I  AND  (ENTER).*; 

1211  PRINT*  YOUR  CHOICE';; INPUT  ZI 
1311  CLS 

Mil  IF  ZMI  THEN  17311 
1511  IF  ZM-1  THEN  26111 
1611  GOTO  nil 
1711  STOP 
1911  DIR  ETA(6) 

2111  DIR  BETA (6) 

2111  DIR  N(2SI 
2211  DIR  TTI25) 

2311  DIR  T(2S) 

2411  DIR  IUST(6) 

2SII  DIR  RTF (23) 

2611  DIR  F(2S) 

2711  DIR  TF(SS,6) 

2BII  DIN  RUNFAIL(ll) 

29SI  RANDONIZE  2 
3111  T0TFA1L<I 
3111  FOR  (Cl  TO  Z 
3211  READ  BETA(K) 

33fl  NEIT  K 
34N  FOR  KM  TO  J 
3SII  READ  ETA(I() 

3611  NEIT  K 
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37ff  FOR  K*1  TO  5 
3611  READ  NtK),T(K) 
4 Ilf  NEH  K 
4211  RESTORE 
4311  SUN<i 
4411  THAI>UTRtnOI 
4511  LPRINT* 

4611  LPRINT' 

4711  LPRINT' 

4723  LPRINT' 

4731  LPRINT' 

4735  LPRINT' 


HEIBULL  RISK  ANALYSIS' 

A  HONTE  CARLO  SINULATION' 
NEIIRSKl' 

NRITTEN  lYi  JANES  L.  lYERS,  CODE  6152' 
NAVAL  AIR  DEVELOPNENT  CENTER' 
HARNINSTER,  PA  10174* 


LPRINT 

4611  LPRINT'  EII6INE  I'lEliLPRlNTiLPRINTsLPRINT 

4911  LPRINT'BETA  VALUES  s' 

5111  FOR  Y«1  TO  JsLPRINT  6ETAIY),sHEIT  YiLPRINTsLPRINTsLPRINT 
5111  LPRINT'ETA  VALUES  s* 

5211  FOR  Y«1  TO  JsLPRINT  ETA(Y),sNEIT  YsLPRINTsLPRINTsLPRINT 
5311  LPRINT'DATA  PAIRS  s' 

3411  LPRINT'NO.  ENSS.'i*  INIT.  TINE' 

5511  FOR  Y*1  TO  SsLPRINT'  •;N(YI,T(Y»sNEXT  YsLPRINTsLPRINTsLPRINT 
56M  PRINT'HAnnUR  0PERATIN6  HOURS  PER  EN61NE  FOR  THIS  ANALYSIS  IS* sTNAXs 'HOURS* 
sPRINTsLPRINT'NAXINUN  0PERATIN6  HOURS  PER  EN6INE  FOR  THIS  ANALYSIS  IS'(THAX|'HOU 
RS'sLPRINT 

5711  PRINT'INSPECTION  INTERVAL  FDR  THIS  ANALYSIS  IS'tlNSPTj'HOURS'sPRINTsLPRINT* 
INSPECTION  INTERVAL  FOR  THIS  ANALYSIS  IS* }INSPT| 'HOURS* s LPRINT 
5811  PRINT'TINE  DURATION  OF  THIS  ANALYSIS  IS'(NQU*NONTHS*sLPRINT'TINE  DURATION 
OF  THIS  ANALYSIS  IS*|HOIt*NONTHS'sLPRINTsPRINT 

5911  PRINT'UTILIZATION  RATE  IS* <UTR; 'HOURS  PER  EN6INE  PER  NONTH'tPRINTtLPRINT'UT 
ILIIATION  RATE  IS* jUTR) 'HOURS  PER  EN6INE  PER  NONTH'sLPRINT 
6111  FOR  LM  TO  S 

6111  PRINT*  tIIttItItttItlllMttI  DATA  PAIR  NUNRER'lL;'  IIMlIttlltttllMlIttttt 

Il'iPRINTsPRINT 

6211  LPRINT*  IIMIttItllltintlllt  DATA  PAIR  NUNBER*;L;*  tttttttlltlltlttltttllt 

lll'jLPRINTtLPRINT 
6311  FOR  n«l  TO  I 

6411  PRINT*  t  I  I  ITERATION  NUNBER*tH!*l  t  I'|PRINT;PRINT 

6511  LPRINT*  i  I  I  ITERATION  NUNBER'lH;*!  I  l':LPRINTiLPRlN 

r 

6611  FOR  1*1  TO  NIL) 

6711  PRINT'  EN6INE  NUHBER*;IiPRINT 

6611  LPRINT*  ENGINE  NUNBER'tliPRINT 

Till  FOR  K«1  TO  J 

7111  TF(I,K)*ETAIK)t(L06(l/(lHIND(Z)nr(l/(KTAIK))) 

7211  IF  TF(I,K)<T(L)  THEN  TIN 
7311  IF  TFll.KXINSPT  THEN  75H 
7411  IF  TF(I,K)>IN8PT  THEN  7IH 
7511  0(K)*liBUST(K)«IUST(K)«0(K)i0(K)«f 
TMf  NEXT  K 

7831  FOR  K*1  TO  JtLPRINT  TF(I,K),tNEXT  KiLPRINT 
7633  FOR  K«1  TO  Ji  PRINT  TFII,K),tNEXT  Ki  PRINT 
7911  60SUB  INfl 
Of If  GOTO  13511 
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9111  SUfl*SUn4AlLS 
9111  TOTFAIL>TOTFAILtSUn 
9211  RUNFA1LS>RUNFA1LS*SUH 
9311  FAIL(I)>FAIL{I)*FAILS 

9411  PRINT'CUNULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE*:TOTFAIL 
9SII  LPRINT'CUnULATIVE  FAILURES  FOR  THIS  DATA  PAIR  ARE‘:TOTFAIL 
9&lf  FAILS«I 
9711  SUN«I 

9Bfl  PRINT'NUNBER  OF  FAILURES  FOR  EN6INE*;It'«*FAIL(I)t  PRINT 

99fB  LPRINT'NUNBER  OF  FAILURES  FOR  ENSINE*lIt'>*FAIL(I)tLPRINT 

9911  BI6Fin>BI6F(I)*FAIL(I)!FAIL(I)*liTTn)«f 

9921  SOTO  ISBM 

IHIf  FOR  AM  TO  J-1 

Ifllf  B>A 

1I2II  FOR  CtAM  TO  J 

11311  IF  TFd.CXTFd.B)  THEN  IfSIi 

1I4II  SOTO  11611 

1I5II  B«C 

11611  NEIT  C 

1I7II  D-TFd.A) 

IfBlf  TFd.AIMFd.BI 
1B9B0  TFd,B)«D 
lllff  NEIT  A 
mil  RETURN 
12III  FOR  KM  TO  1 

12111  TFd,KI«ETA(K)t(L06d/d‘RND(Zmrd/(BETAIK))l 
12411  IF  TFd.KXINSPT  THEN  12SII  ELSE  126H 
12511  0(KIM;BUST(K)tBUST(KXO(K)]B(KI«l 
12611  NEIT  K 

12615  FOR  K*1  TO  J;LPRINT  TFd.KI.iNElT  KiLPRINT 

12616  FOR  KM  TO  Jt  PRINT  TFd,K),iNEIT  Ki  PRINT 
12611  SOSUB  mil 

13511  IF  TFII.IXINSPT  AND  (TFd.llMTdlXTNAI  THEN  FAILS'FAILSM 

13611  IF  TFd,l)>INSPT  THEN  TFd,llMNSPr 

13711  TTdlMTdlMFd.ll 

I38II  IF  TTdIMTHAI  THEN  TTdlMHAX 

Mill  LPRINT'TIHE  on  ENSINE  IS^TTII) 

Mill  IF  TTdIMTHAI  THEN  9111  ELSE  12IH 
ISIII  NEIT  I 

15111  PRINTiLPRlNTiLPRINT'TOTAL  FAILURES  ITERATION  NUNBER'lH;*>*;RUNFAILS 
15211  PRINT'TOTAL  FAILURES  ITERATION  NUHBER*;n|'«MtUNFAILSlPRINTiPRINTiRUNFAIL( 
HMRUNFAILS 

I53II  Sun«l:FAIL8«liRUNFAILS«l 
15411  NEIT  N 
I55II  PRINT:?RINT 
15611  LPRINTtLPRINT 

15711  SUNMOTFAlL/liLPRINTiLPRINT’AVERASE  NWBER  FAILURES'|X| ‘ITERATIONS  «  ■;SUN 
tLPRINT;LPRINT 

15BII  PRINT'AVERASE  NUHBER  FAILURES‘iM*ITERARIONS  ■  ‘iSUHiPRINT 
15911  T0TFAIL*lt8Un>l 
16III  FOR  NM  TO  I 

16111  PRINT'NUNBER  OF  FAILURES  IN  ITERATION‘|H|***|RUNFAIL(H)|iPRINT 
16211  NEXT  n 
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U3fl  FOR  R>1  TO  N(L)!BI6F(R)*BIEF(R)/|!NEIT  R 

164H  FOR  R<1  TO  N(L):PR1NT‘AVERA6E  NUMBER  OF  FAILURES  FOR  EN6INE';R;'lS';BieF(R 
ItNEIT  R;PRINT 

USff  FOR  R>1  TO  I:LPRINT‘NUHBER  OF  FAILURES  IN  ITERATI0N'{N|’>‘;RUNFA1L(N):IPRI 
NTtNEH  H 

16611  FOR  R*1  TO  NIL);LPRINT‘AVERA6E  NUMBER  OF  FAILURES  FOR  EN6INE';R;MS':BISF( 

R);NEU  R;LPRINT:FOR  R«i  TO  N(L):BI6F(R>>liNElT  R 

168IB  NEIT  L 

16911  SOTO  26511 

17111  REM 

17111  REM  tttttllllttUtttlt  DATA  INPUT  SECTION  llttttllMIftllttllltttfllltt 
17211  REN 

173ff  CLSiPRlNT'THlS  IS  THE  DATA  INPUT  SECTION  OF  THE  NEIBULL  RISK  CODE.' 

174M  PRINT 

l7S#f  PRINT'YOU  MILL  BE  ASKED  TO  INPUT  VARIOUS  DATA  IN  A  GIVEN  FORMAT.' 

176f«  PRINT 

17711  PRINT'THE  FORMAT  IS  CRITICAL  SO  FOLLON  INSTRUCTIONS  CAREFULLY. '{PRINT 
178M  PRINT'TYPE  1  <£NTER>  TO  INPUT  DATA.  TYPE  -1  <ENTER>  TO  8UIT.' 

17911  INPUT  II 
18188  CLS 

18188  IF  Il>-1  THEN  26188 

18288  !F  ZIM  THEN  28288  ELSE  17888 

28288  CLS 

28381  PRINT'NOM  TYPE  THE  FOLLONING  :*{PRINT 
28488  PRINT'2S888  DATA  BETA{11,BETA(2),...,BETA(J)' 

28588  PRINT'  NHERE  8ETA(U  IS  THE  NEIBULL  SLOPE  FOR  THE  FIRST  RODE  OF' 

28688  PRINT'  FAILURE.  BETA(2)  IS  THE  NEIBULL  SLOPE  FOR  THE  SECOND  RODE’ 

28788  PRINT'  OF  FAILURE,  AND  SO  ON  UNTIL  THE  NUMBER  OF  BETA’S  CORRESPON 

O' 

28888  PRINT'  TO  THE  INTEGER  FOR  THE  NUMBER  OF  FAIlURE  MODES.  SEPARATE' 

28988  PRINT'  BETA’S  NITH  COMMA’S.* {PRINT 

21888  PRINT'AFTER  THE  LAST  BETA  IS  TYPED,  PRESS  (ENTER)  THEN  TYPE  ’RUN  21388’  AN 
D’ 

21188  PRINT'<ENTER>.’ 

21288  STOP 
21388  CLS 

21488  PRINT’NON  TYPE  THE  FOLLONING  {'{PRINT 
21388  PRINT'2S988  DATA  ETA(tl,ETA(2),...,ETAUI’ 

21688  PRINT'  NHERE  ETAlll  IS  THE  CHARACTERISTIC  LIFE  FOR  THE  FIRST  MODE 

• 

21788  PRINT'  OF  FAILURE.  ETA(2)  IS  THE  CHARACTERISTIC  LIFE  FOR  THE* 

21888  PRINT’  SECOND  NODE  OF  FAILURE,  AND  SO  ON  UNTIL  THE  NUHKR  OF  ETA’ 

S' 

21988  PRINT'  CORRESPOND  TO  THE  INTEGER  FOR  THE  NUHKR  OF  FAILURE  NODES. 

• 

22888  PRINT*  SEPARATE  ETA’S  NITH  CONNA’S. '(PRINT 

22188  PRINT'AFTER  THE  LAST  ETA  IS  TYPED,  PRESS  (ENTER)  THEN  TYPE  'RUN  22481’  AND 

t 

22288  PR|NT'<ENTER).' 

22388  STOP 
22488  CLS 
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225il  PRIHT'HOK  TYPE  THE  FQLL0IIIH6  •.’•.PRINT 
22611  PRINT‘26ffl  DATA  Nl,Tl,N2,T2,...,(tc.' 

22711  PRINT'  NHERE  Ni  IS  THE  NUNKR  OF  ENGINES  AT  TINE  Tf 

228M  PRINT’  TI  IS  THE  OPERATING  TIKE  OF  ENGINES  NI’ 

22911  PRINT'  N2  IS  THE  NUK8ER  OF  ENGINES  AT  TIKE  T2' 

23111  PRINT’  T2  IS  THE  OPERATING  TINE  OF  ENGINES  N2,  ttc.’tPRINT 

23III  PRINT’USE  ADDITIONAL  LINES  AS  NEEDED  TO  ADD  NQRE  DATA.' 

23211  PRINT’NHEN  THE  LAST  DATA  PAIR  IS  ENTERED,  TYPE  'RUN  234H’  AND  <ENTER>.' 
23311  STOP 
234ff  CLS 

23311  PRINT’Nnw  INPUT  THE  NUHBER  OF  DATA  PAIRS  JUST  ENTERED.’; I  INPUT  StPRINT 
23711  PRINT’INPUT  THE  TOTAL  NUHBER  OF  ENGINES  IN  THE  SANPLE  -  NOT  OVER  2S.’;;INP 
UT  R;PRINT 

23911  PRINT* INPUT  THE  NUHBER  OF  HONTHS  THAT  THIS  ANALYSIS  HILL  COVER,  i.f.,  36  F 
OR  THREE  YEARS. INPUT  NOIsPRINT 

24211  PRINT’NEIT,  INPUT  THE  OPERATING  HOURS  PER  NONTH  (AVERAGE)  OVER  THE  TIHE’ 
243fB  PRINT’PERIOD  OF  THIS  ANALYSIS.’; (INPUT  UTRtPRINT 
24311  PRINT* INPUT  THE  INSPECTION  INTERVAL  FOR  THE  ENGINE  OF  THIS  ANALYSIS. ';:INP 
UT  INSPT!PRINT 

247(1  PRINT-INPUT  THE  NUHBER  OF  FAILURE  HODES  OF  THIS  ANALYSIS.’; (INPUT  J:PR1HT 

249((  PRINT’INPUT  THE  ENGINE  DESIGNATION.’;tINPUT  EliPRINT 

24931  PRINT’INPUT  ANY  NUHBER  BETHEEN  H  AND  *32767  TO  SEED  THE  RANDOH  NUHBER  GEN 

ERATOR.  USE  A  DIFFERENT  NUHBER  FOR  EACH  ANALYSIS.’; (INPUT  Z(PRINT 

2496(  PRINT'LASTLY,  INPUT  THE  NUHBER  OF  ITERATIONS  TO  BE  PERFORHED  DURING  THE  AN 

ALYSIS.';( INPUT  I 

251(1  CLS 

232((  REN 

234((  REH  Itlllllittitititlll  END  OF  DATA  IIU’UT  SECTION  tIUlltItlllltItttlIttI 
2SS((  GOTO  I9(( 

2S6((  REN 
2SS((  DATA  3.35 
259((  DATA  2741 
26(((  DATA  5,I((( 

26I((  END 
262((  REH 
263((  CLOSE 

2B5((  PRINT(PRINT(PRINT'DO  YOU  HAVE  OTHER  ANALYSES  TO  DO  •  (Yl  OR  (N)’;: INPUT  Al 
2BS1(  IF  AI**Y'  THEN  173(( 

28S2(  IF  AI*'N’  THEN  CHAIN  'NEIBER' 

2BS3(  CLS(GOTO  2B3(( 

2999(  END 

3((((  CLS(PRINT(PRINT{PRINT’SAVING  NEIBRSKI  ON  DISK  B'iSAVE  ’ltHEI(RSKl’{END 
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If  REn 
2f  RER 

.31  REH  titllittitittlittti  PR06RAR  SHTIIE1B2  tttttittititititlitttlllltlltll 
41  RER 
Sf  RER 
6f  RER 
71  CIS 

81  PRINT'  HEIBULL  RISK* 

BS  PRINT*  'SHORT" 

ff  PRINT*  A  HONTE  CARLO  SINULATION* 

95  PRINT*  HRITTEN  BY  JAKES  L.  BYERS  -  CODE  AIS2' 

9A  PRINT*  NAVAL  AIR  DEVELOPHENT  CENTER,  HARRINSTER,  PA  16974* 

Iff  PRINT!PRlNT:PRINT 

2ff  PRINT*  THIS  PR06RAH  PROVIDES  THE  CAPABILITY  TO  CALCULATE  THE  NUHBER  OF  FA 
ILURES* 

3tf  PRINT'FOR  SEVERAL  DIFFERENT  PARTS  IN  AN  EN6INE  OVER  A  USER  SPECIFIED  TINE  PE 
RIOD.* 

4ff  PRINT'UP  TO  2Sf  ENGINES  CAN  BE  ANALYSED  NITH  SCHEDULED  INSPECTIONS  NHERE  THE 
PARTS* 

Sft  PRINT'CONSIDEREO  ARE  BROUGHT  TO  ZERO-TIKE,  i.t.,  ARE  HADE  GOOD-AS-NEN.* 

SSf  PRINT 

* ,  PRINT*  INPUTS  CONSIST  OF:  NUHBER  OF  ENGINES;  TINE  SINCE  LAST  INSPECTION; 
ANALYTICAL* 

7ff  PRINT'TINE  PERIOD;  FLIGHT  HOUR  UTILIZATION  RATE;  TINE  BETNEEN  INSPECTIONS,  I 
NITIAL* 

Bff  PRINT'TIHE  ON  ENGINES;  HEIBULL  PARANETERS  IBETA  I  ETA);  and  ENGINE  DESIGNATI 
ON.* 

BSf  PRINT 

9ff  PRINT*  OUTPUT  CONSISTS  OF  TOTAL  NUHBER  OF  FAILURES  BY  ITERATION  AND  AVERA 
GES* 

Ifff  PRINT'PER  ENGINE  AND  ITERATION.* 

IfSf  PRINT 

llff  PRINT'TO  CONTINUE  INPUT  1  AND  (ENTER).  TO  BUIT  INPUT  -1  AND  (ENTER).*; 

I2ff  PRINT*  YOUR  CHOICE';: INPUT  Zt 
13ff  CLS 

I4ff  IF  Zl*l  THEN  t73ff 
iSff  IF  Zl*-l  THEN  2Glff 
Uff  GOTO  lllf 
17ff  STOP 
19ff  DIN  ETAdfl 
2fff  DIN  BETA! If) 

2fSf  DIN  FAIL (231) 

2135  DIN  BISFI2SII 
2Iff  DIN  NI2SB) 

2211  DIN  TTI2Sf) 

2311  DIN  T(2Sf) 

2411  DIN  BUSTISI) 

2311  DIN  HTF(2Sf) 

2Gff  DIN  F(2SI) 

2711  DIN  TF(2Sf,lf) 

2811  DIN  RUNFAILIII) 

2931  RANDONIZE  Z 
3111  TOTFAIL-f 
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3100  FOR  K>1  TO  J 

3200  READ  BETA(K) 

3300  NEXT  K 

3400  FOR  K*1  TO  J 

3500  READ  ETA  IK) 

3600  NEXT  K 

3700  FOR  K*l  TO  S 

3800  READ  NIKI.TIK) 

4100  NEXT  K 

4200  RESTORE 

4300  SUN*0 

4400  TNAI>UTRtNOI 

4450  LPRINT:LPRINT:LPR1NT 

4500  LPRINT' 

NEIBULL  RISK  ANALYSIS' 

4600  LPRINT' 

A  NONTE  CARLO  SIIHILATION* 

4700  LPRINT' 

SHTHEIB2' 

4725  LPRINT' 

HRITTEN  BYi  JAHES  L.  DYERS,  CODE  6052 

4730  LPRINT' 

NAVAL  AIR  DEVELOPHENT  CENTER' 

4735  LPRINT' 

NARHINSTER,  PA  18974' 

PRINT 

4811  LPRINT'  EN6INE  i'lEliLPRlNTiLPRINTtLPRINT 

4910  LPRINT’BETA  VALUES  i‘ 

5000  FOR  Y<1  TO  J:LPRINT  BETAIYI.tNEIT  YtLPRINT{LPRINT:LPRINT 
5100  LPRINT'ETA  VALUES  i* 

5200  FOR  Y«1  TO  JiLPRlNT  ETAIYI.sNEIT  YiLPRINT:LPRINTtLPRINT 
5300  LPRIHT’DATA  PAIRS  «• 

5400  LPRINT’NO.  EMBS.'j*  INIT.  TINE* 

5500  FOR  Y»l  TO  SiLPRINT'  'iNlYl.TIYIiNEIT  YjLPRINTiLPRINTiLPRINT 
5600  PRINT'NAlinun  OPERATING  HOURS  PER  ENGINE  FOR  THIS  ANALYSIS  IS*|THAIi 'HOURS' 
iPRINTiLPRINT'NAXinUN  OPERATING  HOURS  PER  ENGINE  FOR  THIS  ANALYSIS  IS*;TNAX;’NOU 
RS':LPRINT 

5700  PRINT'INSPECTION  INirRVAL  FOR  THIS  ANALYSIS  15’tINSPT|’H0URS’tPRINTiLPRlNT* 
INSPECTION  INTERVAL  FOR  THIS  ANALYSIS  IS';INSPT{'HOURS’iLPRINT 
5800  PRINT'TINE  DURATION  OF  THIS  ANALYSIS  IS*|Ml|'NONTHS’tLPRINT'TINE  DURATION 
OF  THIS  ANALYSIS  IS'|HOI;'NONTHS'lLPRINTiPRINT 

5900  PRINT'UTILIZATION  RATE  IS'tUTRi'HOURS  PER  ENGINE  PER  NONTH'iPRINTtLPRINT’UT 
ILIZATION  RATE  IS'|UTRt'HOURS  PER  ENGINE  PER  RWTH'iLPRINT 
6000  FOR  L*1  TO  S 

6100  PRINT'  lltltlttUIIIIttlllll  DATA  PAIR  WMBER'iL;’  ItltlltttltttttnUtlltl 

ll':PRINT:PRINT 

6200  LPRINT'  ItttlttttltltttttUlt  DATA  PAIR  NUHDER’iL;'  tlttlttlttlllltltinttl 

lll'tLPRIHTiLPRINT 

6250  PRINTiPRINTiPRINTiPRINT*  PLEASE  DE  PATIENT  -  I'N  CORPUT 

ING  THE  FAILURES* 

6300  FOR  N>1  TO  1 
6600  FOR  I>I  TO  NIL) 

7000  FOR  K<l  TO  J 

7100  TFII,K)«ETA(KII(LOG(l/(l-RNDa))))*n/IIETA(K))) 

7200  IF  TFII.KXTIL)  THEN  7101 

7300  IF  TFII.KXINSPT  THEN  7510 

7400  IF  TF(1,KI>INSPT  THEN  78N 

7500  giK)«tiBU8TIK)*DUST(K)*QllC)]OIK)>0 

7000  NEIT  K 

7900  GOSUD  10000 

0000  GOTO  13500 

9000  SUH>SUH«FAILS 

9100  T0TFAIL>T0TFAIL«8UH 
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9151  PRINT  TOTFAIL, 

92M  RUNFAILStRUNFAILS^SUn 
9311  FAlLIDoFAlLID^FAlLS 
9611  FAILS*! 

9711  SUN«I 

9911  II6F(l)«BieF(I)«FAILIl):FAIL(I)*f:TT(I)*f 
992!  GOTO  IS!!! 

1!!!!  FOR  A«1  TO  J-1 
l!l!!  B*A 

I!2!!  FOR  C«AM  TO  J 

1!3!!  IF  TF(I,C)<TF(I,B)  THEN  IBS!! 

t!4!!  SOTO  l!6!! 

IBS!!  B>C 
1!6!!  NEIT  C 
1!7!!  0*TF(I,AI 
1!B!!  TFII,A)*TF(1,B) 

1!9!!  TF(I,B)*0 
11!!!  NEIT  A 
111!!  RETURN 
12!!!  FOR  K*1  TO  i 

121!!  TF(l,K)*ETA(K)t(L06(l/(i*RNDIZ»l))''(l/(BETA(IO)) 

124!!  IF  TFII.KXINSPT  THEN  12SI!  ELSE  126!! 

12S!!  0(ri*l:BUST(IO«BUST(K)4B(K)iO(K)«! 

126!!  NEIT  K 
1261!  60SUB  1!!!! 

13S!!  IF  TFd.lXINSPT  AND  (TFlI.limdlXTHAl  THEN  FAILS*FAILSM 
136!!  IF  TFd.lDINSPT  THEN  TFd,l)«lNSPT 
137!!  TTd)*TTdXTFd,l) 

130!!  IF  TTdl<)TNAl  THEN  TTdl«THAI 
141!!  IF  TTd)>>TnAI  THEN  9!!!  ELSE  12!!! 

IS!!!  NEIT  I 

IS2!!  RUNFAILINI-RUNFAILS 
1S3!!  SUN*!:FAILS«!:RUNFAILS*! 

154!!  NEIT  N 
155!!  PRINTiPRINT 
156!!  LPRlNTiLPRlNT 
1565!  CLS 

157!!  SUN*T0TFAIL/IiLPRINTiLPRlNT*AVERA6E  NUHBER  FAILURES'|I; ’ITERATIONS  «  ';SUN 
:LPRINT:LPRINT 

ISO!!  PRINT'AVERASE  NUHBER  FAILURES*:Ii'ITERAIONS  >  *;SURiPRINT 
159!!  TOTFAIL*!: SUN*! 

16!!!  FOR  N>l  TO  I 

161!!  PRINT’NUHBER  OF  FAILURES  IN  ITERATION';nt'*’(RUNFAILIN)|tPRINT 
162!!  NEIT  N 

163!!  FOR  R«l  TO  N(L)iOI6F(R)«OI6FIRI/ItNElT  R 

164!!  FOR  R«1  TO  N(L)i PRINT’AVERASE  NURIER  OF  FAILURES  FOR  EN6INE’|R|’I8‘|0I6F(R 
ItNEIT  R:PRINT 

165!!  FOR  N«1  TO  l:LPRlNT’NUnKR  OF  FAILURES  IN  1TERAT10N’|H|*>*|RUNFA1L(N):LPRI 
NT:NEIT  n 

166!!  FOR  R«1  TO  NILXLPRINT’AVERASE  NUNOER  OF  FAILURES  FOR  ENSINE’|Rt’lS’|BI6FI 
RliNEIT  RiLPRlNTiFOR  R>l  TO  N(L)l01GF<R)*liNElT  R 
160!!  NEIT  L 
169!!  GOTO  205!! 

17!!!  REN 
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17111  REn  lilllllitttitllitt  DATA  INPUT  SECTION  littttllittllittlllltlllllltl 
I72f(  REN 

17311  CLS'.PRINT'THIS  IS  THE  DATA  INPUT  SECTION  OF  THE  NEIBULL  RISK  CODE  (SHORT  V 
ERSION>.‘ 

17411  PRINT 

17511  PRINT'YOU  MILL  BE  ASKED  TO  INPUT  VARIOUS  DATA  IN  A  SIVEN  FORMAT. ‘ 

176fB  PRINT 

17711  PRINT'THE  FORNAT  IS  CRITICAL  SO  FOLLOH  INSTRUCTIONS  CAREFULLY. 'iPRINT 
17816  PRINT'TYPE  1  (ENTER)  TO  INPUT  DATA.  TYPE  >1  (ENTER)  TO  QUIT.  YOUR  CHOICE 

17961  INPUT  Z1 
18666  CLS 

18166  IF  Zl<-1  THEN  26166 
18266  IF  Zl*l  THEN  26266  ELSE  17866 
26266  CLS 

26366  PRINT'NON  TYPE  THE  F0LL0H1N6  i'iPRINT 
26466  PRINT'2S866  DATA  8ETA(1),BETA(2I,...,BETAIJ)' 

26566  PRINT*  HHERE  BETA(l)  IS  THE  NEIBULL  SLOPE  FOR  THE  FIRST  NODE  OF* 

26666  PRINT*  FAILURE,  BETA(2)  IS  THE  NEIBULL  SLOPE  FOR  THE  SECOND  NODE* 

26766  PRINT*  OF  FAILURE,  AND  SO  ON  UNTIL  THE  NUMBER  OF  BETA’S  CORRESPON 

D* 

26866  PRINT*  TO  THE  1NTE6ER  FOR  THE  NUMBER  OF  FAILURE  NODES.  SEPARATE* 

26966  PRINT*  BETA’S  NITH  COMMA’S. ':PRINT 

21666  PRINT*AFTER  THE  LAST  BETA  IS  TYPED,  PRESS  (ENTER)  THEN  TYPE  ’RUN  21366’  AN 
D* 

21166  PRINT*(ENTER).* 

21266  STOP 
21366  CLS 

21466  PR1NT*N0M  TYPE  THE  FOLLOMINS  :*iPRINT 
21566  PRINT*25966  DATA  ETA(1),ETA(2)....,ETA(J)* 

21666  PRINT*  NHERE  ETA(l)  IS  THE  CHARACTERISTIC  LIFE  FOR  THE  FIRST  MODE 

• 

21766  PRINT*  OF  FAILURE,  ETA(2)  IS  THE  CHARACTERISTIC  LIFE  FOR  THE* 

21866  PRINT*  SECOND  NODE  OF  FAILURE,  AND  SO  ON  UNTIL  THE  NUMBER  OF  ETA’ 

S* 

21966  PRINT*  CORRESPOND  TO  THE  INTE8ER  FOR  THE  NUMBER  OF  FAILURE  MODES. 

• 

22666  PRINT*  SEPARATE  ETA’S  NITH  COMMA’S. 'iPRINT 

22166  PR1NT*AFTER  THE  LAST  ETA  IS  TYPED,  PRESS  (ENTER)  THEN  TYPE  ’RUN  22466’  AND 
• 

22266  PRINT*(ENTER).* 

22366  STOP 
22466  CLS 

22566  PRINT*NOM  TYPE  THE  FOLLONINS  t'tPRINT 
22666  PRINT’26666  DATA  NI,TI,R2,T2,...,ttC.* 

22766  PRINT*  NHERE  NI  IS  THE  NUMBER  OF  EN6INES  AT  TIME  TI’ 

22866  PRINT*  TI  IS  THE  0PERATIN8  TIME  OF  EN6INE8  NI* 

22966  PRINT*  N2  IS  THE  NUMBER  OF  ENSINES  AT  TIRE  T2* 

23666  PRINT*  T2  IS  THE  OPERATIN6  TIME  OF  ENSINES  N2,  itc.*tPRINT 

23166  PRINT*USE  ADDITIONAL  LINES  AS  NEEDED  TO  ABB  MORE  BATA.* 

23266  PRINT*NHEN  THE  LAST  DATA  PAIR  IS  ENTERED,  TYPE  ’RUN  234N’  AND  (ENTER).* 
23366  STDP 
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23419  CLS 

23Sff  PRINT'NOH  INPUT  THE  NUHBEII  OF  DATA  PAIRS  JUST  ENTERED. '|i INPUT  S:PRINT 
23711  PRINT’INPUT  THE  TOTAL  NUNBER  OF  ENGINES  IN  THE  SANPLE  •  NOT  OVER  251.*;! IN 
PUT  RtPRINT 

23911  PRINT'INPUT  THE  NUNBER  OF  NORTHS  THAT  THIS  ANALYSIS  HILL  COVER,  i.i.,  36  F 
OR  THREE  YEARS.';! INPUT  HOIrPRINT 

24211  PRINT'NEIT,  INPUT  THE  OPERATING  HOURS  PER  NORTH  (AVERAGE)  OVER  THE  TINE* 
24311  PRINT'PERIOO  OF  THIS  ANALYSIS.*;: INPUT  UTRiPRINT 
24511  PRINT'INPUT  THE  INSPECTION  INTERVAL  FOR  THE  ENGINE  OF  THIS  ANALYSIS. *;:INP 
UT  INSPT: PRINT 

247fB  PRINT'INPUT  THE  NUNBER  OF  FAILURE  NODES  OF  THIS  ANALYSIS.';! INPUT  J!PRINT 

24911  PRINT'INPUT  THE  ENGINE  DESIGNATION.*;! INPUT  EliPRINT 

249SB  PRINT'INPUT  ANY  NUNBER  BETNEEN  ^1  AND  «327i7  TO  SEED  THE  RANDON  NUNBER  GEN 

ERATOR.  USE  A  DIFFERENT  NUNBER  FOR  EACH  ANALYSIS.*;: INPUT  Z!PRINT 

24961  PRINT'LASTLY,  INPUT  THE  NUNBER  OF  ITERATIONS  TO  BE  PERFORNED  DURING  THE  AN 

ALYSIS.';! INPUT  I 

2S1H  CLS 

252IB  REN 

25411  REN  llttiltttltttltttlt  END  OF  DATA  INPUT  SECTION  ttitlllllllltittlllllll 

2SSBI  GOTO  1911 

2S6fB  REN 

25891  DATA  3.55 

25999  DATA  2741 

26999  DATA  5,1999 

26199  END 

26299  REN 

26399  CLOSE 

28599  PRINT!pRINTiPRINT*00  YOU  NAVE  OTHER  ANALYSES  TO  DO  •  (Y)  OR  IN)*;!lNPUT  At 

28519  IF  At«*Y'  THEN  17399 

28529  IF  Aft'N*  THEN  CHAIN  *HEIBER‘ 

28559  CLSiGOTO  28599 
29999  END 

39999  CLS!PRINTiPRINT!PRlNT*SAVIN6  SHTHEIB2  ON  DISK  B'iSAVE  *B!SHTHE1B2'!END 
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2  CLS 

3  REH 

4  REN 

5  REN  ItIttttttUtUttUIttllt  PR06RAH  ETRCALC  ttttllttUtlltlllttlttttltltUllt 
A  REN 

7  REN 
e  REN 
9  REN 

It  PRINT'  PR06RAH  ETACALC 

12  PRINT'  HRITTEN  BY  JANES  L.  BYERS,  CODE  AfS2' 

13  PRINT'  NAVAL  AIR  OEVELOPHENT  CENTER.  NARNINSTER,  PA  18974' 

IS  PRINT'DATA  INPUT  -  INPUT  BATA  AS  INSTRUCTED. 'i PRINT 

21  PRINT'TYPE  IN  THE  FOLLONIN6  DATA  STATEHENT  TO  INPUT  THE  NEIBULL  SLOPE  ’BETA’ 
AND  THE  TOTAL  NUHBER  OF  FAILURES  t* 

25  PRINT'ITBI  DATA  B,T' 

31  PRINT'  NHERE  ’B’  IS  BETA  AND  ’T’  IS  THE  TOTAL  NUHBER  OF  FAILURES. 

IF  THERE  ARE  NO  FAILURES.  INPUT  1  FOR  T.'iPRINT 
35  PRINT'THEN  TYPE  IN  THE  F0LL0NIN6  STATEHENT  TO  INPUT  THE  DATA  PAIRS  !* 

41  PRINT'lBff  DATA  Nl.Tl,N2.T2,....ttc.* 

45  PRINT'  NHERE  NI  IS  THE  NUHBER  OF  UNITS  AT  TINE  Tl,  AND 

Tl  IS  THE  0PERATIN6  TINE  ON  UNITS  Nl.' 

Sf  PRINT'  N2  IS  THE  NUHBER  OF  UNITS  AT  TINE  T2,  AND 

T2  IS  THE  0PERATIN6  TINE  ON  UNITS  N2,  ttc.'sPRINT 
55  PRINT'NHEN  ALL  DATA  HAS  BEEN  ENTERED,  TYPE  'RUN  IM’  AND  <ENTER>.' 

61  STOP 
65  CLS 
IM  CLS 

2M  DIN  NISI), T(SI), NISI) 

3M  PRINT'INPUT  THE  NUHBER  OF  DATA  PAIRS  JUST  ENTERED'li INPUT  R 
4M  CLS 
3M  READ  B,T 
611  SUH«f 

611  PRINT'  CALCULATION  OF  THE  CHARACTERISTIC  LIFE  ETA' 

621  PRINT'  BASED  ON  KNONN  FAILURES  AND  NEIBULL  SLOPE  BETA' 

631  LPRINT'  CALCULATION  OF  THE  CHARACTERISTIC  LIFE  ETA' 

649  LPRINT'  BASED  ON  KNONN  FAILURES  AND  NEIBULL  SLOPE  BETA' 

655  LPRINT'  NRITTEN  BYi  JANES  L.  BYERS,  CODE  6152' 

661  LPRINT'  NAVAL  AIR  DEVELOPHENT  CENTER' 

665  LPRINT'  NARNINSTER,  PA  18974' 

681  PRINTiPRINTiLPRINTlLPRINT 

781  PRINT'DATA  PAIRS  :  <NO.  OF  ENSS.  AND  TIRE  ON  ENBS.I'jPRINT 

758  LPRINT'DATA  PAIRS  f  <NO.  OF  EN(5.  AND  TINE  ON  ENSS.I'lPRINT 

B88  FOR  !■!  TO  R 
988  READ  N(1),T(I) 

1888  PRINT  NIIH','|TIlJt','j 
1858  LPRINT  N(IM*,'|T(I)|','j 
1188  H(II<IIN(I))t(TII)IMB))/T 
1288  8UN*SUH«H(n 
1388  NEIT  I 
1488  E«(8UHIMI/B) 

1588  PRINT:PRINT:PRINT 
1558  LPRINTiLPRINTtLPRINT 
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1611  PRIHT'THE  CALCULATED  VALUE  OF  ETA  lS'sE:PRINT 
1651  LPRIMT'THE  CALCULATED  VALUE  OF  ETA  IS*{E:LPRINT 
1661  PRIHT'THE  VALUE  OF  lETA  USED  1S*;BjPRIMT 
1671  LPRIHT'THE  VALUE  OF  BETA  USED  IS'|B:LPRIHT 
1711  DATA  3,531 

1811  DATA  «,IS13B, 48,41578, 54, 3V636, 44, 78536, 38, 96564, 22, 111132, 48,131286, 94, 14 
5124,38,164921,38,183816,29, 281298,39,228112 
2888  CLOSE 


8888  PRINTjPRIHTiPRIHT'DO  YOU  BISH  TO  CALCULATE  ANOTHER  VALUE  -  (Yl  OR  (Nl'iMNP 
UT  At 

8818  ir  AI«'Y'  THEN  2 

8828  IF  At*'N'  THEN  CHAIN  'NEIBER* 

8858  CLS:60T0  8888 

9998  END 

9999  CLSiPRINT'SAVIHS  ETACALC  ON  DISN  B'jSAVE  'BtETACALC'iEHD 
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Ilf  CLS 

211  m 

311  REH 
411  RER 

SM  RER  tltininitltttiuttttt  RR06RAH  CNFINTIE  ttlttltllltttlUttlltlltttMt 
611  REH 
711  RER 
811  REH 

Iff  PRINT'  CONFIDENCE  INTERVAL  CALCULATION' 

llff  PRINT'  FOR* 

nil  PRINT'  KTA  ‘  ETA  •  TIKE  TO  FIRST  FAILURE' 

1211  PRINT'  HRITTEN  lY  JANES  L.  DYERS,  CODE  6152* 

1311  PRINT'  NAVAL  AIR  DEVELOPHENT  CENTER' 

Mil  PRINI'  HARNINSTER,  PA  18974* 


ISII  LPRINT' 
1611  LPRINT' 
1711  LPRINT' 
1811  LPRINT' 
1911  LPRINT' 
2111  LPRINT' 


CONFIDENCE  INTERVAL  CALCULATION* 
FOR* 

8ETA  •  ETA  -  TINE  TO  FIRST  FAILURE' 
HRITTEN  lY  JANES  L.  DYERS,  CODE  6152' 
NAVAL  AIR  DEVELOPNENT  CENTER' 
HARN1NSTER,PA  18974' 


NTrLPRlNT 

2151  LPRiNT'iiiiiittiiiitittniitttittmimtmitiiiittiMitiiiititiitiittl'iL 

PRINT:LPRINT 
2111  RER 
2211  RER 
2311  RER 

2411  PRINT:PRINT!pRINTiPRINT'NHICH  CONFIDENCE  LEVEL  (1.99,  1.95,  OR  1.91)  DO  YOU 
NISH  TO  USE  TO  ESTABLISH  A  CONFIDENCE  INTERVAL  AROUND  BETA  AND  ETA 

INPUT  AliPRINTiPRINT 

2511  PRINT'HHAT  IS  THE  ESTINATED  VALUE  OF  iETA'jilNPUT  IH:PRINT:PRINT 

2611  PRINT'HHAT  IS  THE  ESTIRATED  VALUE  OF  ETA'filNPUT  ENiPRINTtPRINT 

2711  PRINT'HHAT  NUNBER  OF  FAILURES  ARE  THESE  VALUES  OF  BETA  AND  ETA  BASED  ON';:l 

NPUT  NliPRINTiPRINT 

2811  IF  Al«.99  THEN  I>2.S76 

2911  IF  A1 1.95  THEN  1«1.96 

3111  IF  Al*.9  THEN  1*1.645 

3111  EP1B«I-.78II)/(N1*(1/2)I 

3211  EP2B**EP1B 

3311  EPlE>l-l.f5IZ)/(Nl*(l/2)l 

3411  EP2E*-EP1E 

3511  LlNITIl*IHtEXP(EP18l 

3611  L1NITI2*IHIEIP(EP2I) 

3711  LlNITEl*EHtEIP(EPlE/IH) 

3811  LINITE2*EHIEIP(EP2E/IH) 

3911  PRINT'THE  CONFIKNCE  INTERVALS,  OR  NEASURENENT  OF  TNI  PRECISION  OF  THE* 

4Hf  PRINT'ESTINATION  OF  BETA  AND  ETA  ARE  I*|PRINT|PRINT 

4151  LPRINT'THE  CONFIDENCE  INTERVALS,  OR  NEASURENENT  OF  THE  PRECISION  OF  THE' 

4155  LPRINT'ESTINATION  OF  BETA  AND  ETA  ARE  I'lLPRINTiLPRINT 

4111  PRINT'  *|LIHITI1|*  <•  BETA  <>  *|LINITI2lPRINT 

4211  LPRINT'  'tllNITBli*  <>  BETA  <>  *|LIRITI2tPRINT 

4311  PRINT'  *|LIH1TEI|*  <•  ETA  <■  *|LINlTE2lPRINT:PRINT 

4411  LPRINT*  *|LINITE1|*  <•  ETA  <•  *|LIHITE2tLPRINTiLPRINT 
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MSI  LPRINT'FOR  BETA  AND  ETA  ESTIHATES  OF';BH|'ANO‘|EHt*AND  A  CONFIDENCE  LEVEL  0 
F'|AliLPRlNT;LPRINTiLPRINT 

MSI  LPRINTMUUIMMUntMMMtttMtlMtltfUIIMttlMIMtUIttMIIMttMI'sL 

PRINTiLPRINT 

4Sfl  PRINT'DO  YOU  KANT  CONFIDENCE  INTERVALS  FOR  OTHER  VALUES  OF  BETA  AND  ETA 
(ANSHER  Y  OR  N)*;: INPUT  Al 
Mil  IF  AI«‘N'  THEN  SOTO  Sill 
4711  IF  At«‘Y'  THEN  SOTO  Sflf 
4BII  IF  At  <>  ‘Y*  SOTO  49M 
4911  IF  Al  <>  'N*  SOTO  4SII 
Sill  CLSiSOTO  2411 
SUB  CLS 
SlSf  CLOSE 

S2ff  PRINT'YOU  NAY  NON  CALCULATE  THE  CONFIDENCE  INTERVAL  FOR  THE  TIHE  TO  FIRST  F 
AILURE' 

S3fl  PRINT'IF  YOU  HAVE  CALCULATED  THIS  TIRE  TO  FAIL  PREVIOUSLY.  IF  YOU  HAVE  NOT 

I 

S4II  PRINT'CALCULATED  THE  TIHE  TO  FIRST  FAILURE  YET,  PROCEED  TO  THE  NENU.’iPRINT 
:PRIHT 

SSff  PRINT*  t.  CALCULATE  CONFIDENCE  INTERVAL  FOR  TIHE  TO  FIRST 

FAILURE. *:PRINT 

Sill  PRINT*  2.  RETURN  TO  HENU.'iPRINTtPRINT 

S7lf  PRINT*NHAT  IS  YOUR  CHOICE*; s INPUT  It 
sail  IF  II«I  THEN  CHAIN  *CNFINTFF* 

5911  IF  Yl»2  THEN  CHAIN  ‘NEIIER* 

6111  IF  It  <>  I  THEN  6111 
6111  IF  II  <)  2  THEN  6211 
6211  CLSiSOTO  S2ff 

9999  PR1NT*SAVIN6  CNFINTBE  ON  DISK  B*iSAVE  *B:CNFINTBE*!END 
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3 

CLS 

4 

REN 

3 

REN 

6 

REN  ttttttttuttttmtutiu  PROSRAN  CHFINTFF  IttttttttttlttttUttttttnttt 

7 

REN 

8 

REN 

If 

REN 

Sf 

PRINT' 

CONFIDENCE  INTERVAL  CALCULATION* 

6f 

PRINT' 

FOR* 

7f 

PRINT' 

TINE  TO  FIRST  FAILURE* 

8f 

PRINT* 

NRITTEN  BY  JANES  L.  BYERS,  CODE  6fS2' 

9f 

PRINT* 

NAVAL  AIR  BEVELOPNENT  CENTER* 

Iff 

PRINT' 

HARNINSTER,  PA  1B974' 

ifS 

PRINT' 

VERSION  OF  f3  OCT  1986* 

llf 

LPRIHT* 

CONFIDENCE  INTERVAL  CALCULATION* 

12f 

LPRINT' 

FOR* 

13f 

LPRINT* 

TINE  TO  FIRST  FAILURE* 

I4t 

LPRINT* 

NRITTEN  BY  JANES  L.  BYERS,  CODE  6tS2* 

ISf 

LPRINT' 

NAVAL  AIR  KVELOPNENT  CENTER* 

16f 

LPRINT' 

HARNINSTER,  PA  18974* 

17f 

LPRINT* 

VERSION  OF  f3  KT  1986* 

IBf 

REN 

I9f 

REN 

2ff 

REN 

2lf 

PRINT(PRINTtPRINT!LPRINTiLPRINT!LPRINT 

4ff 

PRINT'NHAT  IS  THE  VALUE  OF  BETA  TO  BE  USED  IN  THIS  ANALYSIS'; (INPUT  BH(PRIN 

TtPRINT 

431  LPRINT’VALUE  OF  KTA  USED  IS  i'lBHlLPRINTilPRINT 

Sff  PRINT'NHAT  IS  THE  VALUE  OF  ETA  TO  BE  USED  IN  THIS  ANALYSIS';! INPUT  EHiPRINT 

(PRINT 

SSf  LPRINT'VALUE  OF  ETA  USED  IS  I'fEHiLPRINTiLPRINT 
iff  PRINT'NHAT  NUHBER  OF  FAILURES  ARE  THESE  VALUES  OF  BETA  AND  ETA  BASED  ON'(i 
INPUT  NliPRINTiPRINT 

631  LPRINT'NUHBER  OF  FAILURES  BETA  AND  ETA  ARE  BASED  ON  IS  i';Nl!LPRINTiLPRINT 
7ff  PRINT'NHAT  IS  THE  ESTINATED  (CALCULATED!  VALUE  OF  TINE  TO  FIRST  FAILURE'; i 
INPUT  FFTE 

731  LPRINT'ESTINATED  (CALCULATED!  VALUE  OF  TINE  TO  FIRST  FAILURE  IS  I'lFFTEiLPR 

INTiLPRINTiLPRINT 

Sff  IF  NIM  THEN  RANKS*.  fS 

VH  IF  Nl*2  THEN  RANKS*.f2S 

IHf  IF  Nl*3  THEN  RAIR(S*.fl6 

Itff  IF  Nl>4  THEN  RANK3«.II2 

I2ff  IF  N1*S  THEN  RANKS*.fl 

IMf  IF  Nt*6  THEN  RANKS*l.tffNlE*f3 

I4ff  IF  Nl*7  THEN  RANKS«.N7 

ISff  IF  Nl>8  THEN  RANKS*. ff6 

I6ff  IF  Ni*f  THEN  RANKS*.ffS 

17ff  IF  Nl*lf  THEN  RANK3*.ffS 
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IBIf  IF  NlMf  THEN  RANKNF«.2S8 

1911  IF  Nl«9  THEN  RANKNF>.283 

2111  IF  Nl«8  THEN  RANKNF«.3t2 

2111  IF  Nl>7  THEN  RANKNF<.348 

22ff  IF  Nl>&  THEN  RANKNF>.393 

23ff  IF  N1>S  THEN  RANKNF«.4S 

2411  IF  Nl«4  THEN  RANKNF<.S27 

2511  IF  Nl-3  THEN  RANKNFi.631 

26H  IF  Ni«2  THEN  RANKNF«.77A 

27fl  IF  Nl«l  THEN  RANKNF«.9S 

2811  IF  Nl>22  THEN  RANKS<.fl2 

2911  IF  Nl-23  THEN  RANK3«.fl2 

3fff  IF  Nl*24  THEN  RANKS*.fl2 

3111  IF  N1<2S  THEN  RANKS*.ff2 

3211  IF  N1>2S  THEN  RANK5«.ffi 

3311  IF  NDll  THEN  RANKNF>(2.3t467)t(i/Nr. 9415891 

3411  IF  tf<Nl<25  THEN  RANK5*(.fA3l715)tU/NlM. 13671) 

3511  LiniTFFl«EHI(L06(l/(l-RANK5)))Nl/BH) 

3611  L 1 H I  TFF2tENI  (LOS  ( 1  /  <  1  ‘RANKNFI I )  ( 1/BH) 

37ft  PRINTsFRINTiPRINTsLPRlNTilPRlNTiLRRlNT 
3Bft  CLS 

39ff  PRINT'THE  CONFIDENCE  INTERVAL,  OR  HEASUREHENT  OF  PRECISION  OF  THE* 

4fff  PRINT'ESTINATE  OF  THE  TINE  TO  FIRST  FAILURE  IS  t'iPRINTiPRINT 

4111  PRINT*  •}LIBITFF1}*<»  TINE  TO  FIRST  FAILURE  (»*(LIR1TFF2!P 

RINTiPRINT 

4lSf  LPRINT'THE  CONFIDENCE  INTERVAL,  OR  HEASUREHENT  OF  PRECISION  OF  THE* 

4155  LPRINT'ESTINATE  OF  THE  TINE  TO  FIRST  FAILURE  IS  s*iLPRINT 

4161  LPRINT*  'iLINITFFli'L*  TIRE  TO  FIRST  FAILURE  <«*{LIRITFF2!L 

PRINTiLPRINT 

42ff  PRINT'THE  ESTINATED  VALUE  OF  TINE  TO  FIRST  FAILURE  IS  i‘)FFTEtPRINTtPRINT 
4251  LPRINT'THE  ESTINATED  VALUE  OF  TIRE  TO  FIRST  FAILURE  IS  i’FFTEj LPRINT: LPRINT 
43ff  PRINT*DO  YOU  HAVE  NONE  CONFIDENCE  INTERVALS  TO  CALCULATE  lANSNER  Y  OR  N)*;: 
INPUT  At 

4411  IF  A4«'Y*  THEN  3 
4Sff  IF  A««*N‘  THEN  CLS 

46ff  PRINT'PLEASE  INPUT  *99  TO  RETURN  TO  THE  HENU,  OR  -1111  TO  OUIT.' 

4711  PRINTiPRINT 

4811  PRINT’  YOUR  CHOICE*;: 

INPUT  A1 

49ff  IF  Al«-99  THEN  CHAIN  'HEIBER* 

SMI  IF  Al-llll  THEN  CLS 

9998  END 

9999  CLS:PRINT'SAVIN6  CNFINTFF  ON  BISK  B*:8AVE  ’BlCNFINTFF'iEND 
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S  CIS 

II  ’ 

21  ’ 

31  ’ 

41  RED  tttltttUtlUIIIIItt  PROeRAR  RELIABTY  tttttitttitttlittttitttlltlllllt 
SI  ' 

61  ’ 

71  ’ 

81  PRINT  * 

91  PRINT  • 

III  PRINT  * 

111  PRINT  ■ 

121  PRINT  ' 

141  LPRINT' 
tSI  LPRINT* 

161  LPRINT* 

171  LPRINT* 

181  LPRINT* 

211  PRINT;PRINT 

211  PRINT  *  INPUT  THE  VALUE  OF  BETA  (NEIBULL  SLOPE)  TO  USE*} (INPUT  BETA 
221  PRINT 

231  PRINT  *INPUT  THE  VALUE  OF  ETA  (CHARACTERISTIC  LIFE)  TO  USE*{!lNPUT  ETA 
241  PRINT 

251  PRINT  *INPUT  THE  TINE  FOR  NHICH  YOU  RANT  THE  RELIABILITY  CALCULATED* {(INPUT 
TINE 

751  RELIABTY»EIP(-(TinE/ETA)*(BETAII 
991  PRINT(PR1NT 

995  LPRINT(LPRINT(LPRINT 

996  LPRINT 

111!  PRINT  *THE  RELIABILITY  AT  T1HE*}TIHE;*IS*;RELIABTY 

Ills  LPR1NT*THE  RELIABILITY  AT  TIHE'jTIHEi'IS’iRELIABTY 

1116  PRINT  *THE  PROBABILITY  OF  FAILURE  AT  THIS  TINE  IS*;(I-RELIABTY) 

1117  LPRINT'THE  PROBABILITY  OF  FAILURE  AT  THIS  TINE  IS*;(1HIELIABTY) 

111!  PRINT(PRINT(PRINT*THE  VALUES  OF  BETA  AND  ETA  USED  lfERE'|BETA|*AND*;ETA 
Ills  LPRINTiLPRINT(LPRINT*THE  VALUES  OF  BETA  AND  ETA  USED  IIERE';8ETA;*AND*;ETA 
1121  PRINT(PRINT{PRINT(PRINT'DO  YOU  NISH  TO  CALCULATE  THE  RELIABILITY  FOR  ANOTHE 
R  tine  (ANSNER  Y  or  N)*|( input  0! 

1I2S  CLS 

1D3I  IF  AI>*Y*  THEN  211 

1141  IF  A««*N*  THEN  2111 

HID  IF  A«<>*N*  THEN  ClSlNTO  1121 

2111  PRINT 

2HS  PRINT(PRINT 

2111  PRINT  *D0  YOU  NISH  TO  CALCULATE  THE  CONFIDENCE  INTERVAL  FOR  RELIABILITY* 
2121  PRINT  '(ANSNER  Y  OR  NI'|(INPUT  At 
2131  CLS 

2141  IF  At  •  *Y*  THEN  CHAIN  *CNFINREL' 

2ISI  IF  At  «  *N*  THEN  CHAIN  'HEIBER* 

2111  IF  At<>*N*  THEN  2111 

9998  END 

9999  CLS:PRINT*SAVIN6  RELIABTY  ON  BISK  B'lSAVE'BiRELIABTY* 


RELIABILITY* 

CALCULATES  RELIABILITY  AS  A  FUNCTION  OF  TINE* 
NRITTEN  BY  JANES  L.  BYERS,  CODE  6IS2* 
NAVAL  AIR  DEVELOPNENT  CENTER* 
NARHINSTER,  PA  18974* 

RELIABILITY* 

CALCULATES  RELIABILITY  AS  A  FUNCTION  OF  TIRE* 
NRITTEN  BY  JANES  L.  BYERS,  CODE  6IS2* 

NAVAL  AIR  DEVELOPNENT  CENTER* 
NARHINSTER,  PA  IB974* 
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5  CLS 
II  ’ 

21  ’ 

31  ’ 

41  REH  Ittllftllllllittttitll  RR06RAN  CNFINREL  llttMtllltllltlllttttltttltt 

51  ' 

if  ’ 

71  ' 

Bf  PRINT  ■ 

91  PRINT  ■ 

Ilf  PRINT  ■ 

Ilf  PRINT  • 

121  PRINT  • 

I3f  PRINT  ■ 

137  PRINT 
Uf  PRINT  ■ 

151  LPRINT* 
lif  LPRINT' 

171  LPRINT' 

IBI  LPRINT' 

191  LPRINT' 

2ff  LPRINT' 

217  LPRINT 

211  LPRINT*  VERSION  OF  24  FEB  87* 

221  PRINTtPRINTtPRINTiPRINT 

231  PRINT  ‘INPUT  THE  VALUE  OF  BETA  INEIBULL  SLOPE)  TO  USE'pINPUT  BETA 
241  PRINT 

25f  PRINT  'INPUT  THE  VALUE  OF  ETA  (CHARACTERISTIC  LIFE)  TO  USE*(tlNPUT  ETA 
2if  PRINT 

271  PRINT  'INPUT  THE  TINE  FOR  NNICH  YOU  NANT  THE  CONFIDENCE  INTERVAL  CALCULATED 
'!! INPUT  TINE 
274  PRINT 

2Bf  PRINT  'INPUT  THE  SANPLE  SIZE  ON  NHICH  BETA  AND  ETA  ARE  BASED'; i INPUT  SAHPSI 
ZE 

29f  PRINT 

3ff  PRINT  'NHICH  CONFIDENCE  LEVEL  (f.99,  f.95,  OR  1,91)  DO  YOU  NISH  TO  USE  TO* 
311  PRINT  'ESTABLISH  A  CONFIDENCE  INTERVAL  AROUND  THE  RELIABILITY'; (INPUT  AhPR 
INTiPRINT 

321  IF  Al<.99  THEN  Z>2.37i 

33f  IF  AI*.9S  THEN  ZM.fi 

34f  IF  Al«,9  THEN  I>l.iA5 

351  RELlABTY>EIP(-(TINE/ETA)'‘(fETA)) 

3if  UHATMLI»(TINE)-L06(ETA))tlETA 

37f  VARUNAT*  ( I .  IMM .  1 1  (UHATr2*.  I9I3I  lUHAT) )  1 1 1  /SAHPSI  ZE) 

3Cf  UI«UHAT-2tAISIIVARUHAT»\3 
391  U2>UHATMIAIS((VARUHAT))\3 
411  PRINTiPRINTtPRINT 
415  LPRINTiLPRINTiLPRINT 


CONFIDENCE  INTERVAL  CALCULATION' 
FOR' 

RELIABILITY' 

NRITTEN  BY  JANES  L.  BYERS.  CODE  il52' 
NAVAL  AIR  DEVELOPNENT  CENTER' 
HARNINSTER,  PA  1B974' 


VERSION  OF  24  FEB  19B7* 
CONFIDENCE  INTERVAL  CALCULATION* 
FOR* 

RELIABILITY' 

NRITTEN  BY  JANES  L.  BYERS,  CODE  ifS2‘ 
NAVAL  AIR  DEVELOPNENT  CENTER' 
HARNINSTER,  PA  IB974' 
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421  PRINT  •  •;E1(P(-EIP(U2));*<»  RELIABILITY  <*  •jEIPI-EYPIUll) 

(PRINT 

425  LPRINT'  •;EIP(-EIP(U2H;‘<«  RELIABILITY  <*  ’iEIPI-EllPIUl)) 

iLPRINT 

431  PRINT!PRINT'NHERE  RELIABILITY  IS‘;RELIABTY;*FOR  BETA  t^BETA;',  ETA  <'|ETA; 
AND  TINE  *'jTIHE 

435  LPRINT:LPRINT'HHERE  RELIABILITY  IS‘tRELIABTY;*FOR  BETA  <';BETAi',  ETA  >’iET 
A;',  AND  TINE  ■‘iTINE 
44f  PRINTsPRINTiPRINT 

451  PRINT  'DO  YOU  NISH  TO  CALCULATE  THE  CONFIDENCE  INTERVAL  FOR  ANOTHER  TINE  •' 
46f  PRINT  '(ANSNER  Y  OR  N}‘«: INPUT  Al 
4&5  CLS 

471  IF  At  *  'Y'  THEN  221 

461  IF  At  «  'N*  THEN  CHAIN  ‘NEIBER* 

511  IF  AtO'N*  THEN  451 

9998  END 

9999  CLSiPRINT'SAVINB  CNFINREL  ON  DISK  B‘tSAVE*8:CNFINREL' 
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2  REH  . PR06RAH  BETAHIST . 

3  RER 

4  RER 

5  LPRINTtLPRINT:LPRlNT:LPRINT 

6  CLS!PRINT:PR1NTiPRINTiPRINT:PRINT'PRINTIN6  HARD  COPY  OF  HISTORICAL  VALUES  OF  B 
ETA  (HEIBULL  SLOPE).' 

II  LPRIHT'IIIttItIttItVALUES  OF  BETA  (HEIBULL  SLOPE)  FROH  HISTORICAL  TRENDSUtll 


tlUttl* 

21  LPRlHTtLPRIHTiLPRIHT 

31  LPRINT'I  IEARIH6S,  6ENERAL  FAILURES . I. S' 

41  LPRIHT't  CRACK,  FLANGE . 9.S' 

SI  LPRINT'I  EROSION,  TURBINE  VANE . 3.1' 

61  LPRINT'I  LCF,  COHPRESSOR  CASE . S.l' 

71  LPRINT'I  LCF,  COHPRESSOR  DISK . 3.1' 

6S  LPRINT'I  LCF,  NOZZLE  BEARING . I. S' 

86  LPRINT'I  LCF,  GENERAL . 2.1— IS.I' 

91  LPRINT'I  PERFORNANCE  DETERIORATION . 4.1— >S.r 

111  LPRINT'I  ROTATING  STRUCTURE . 6.1— >B. I' 

111  LPRINT'I  STATIC  STRUCTURE . 4.1— >6.1' 

121  LPRINT'I  THERHAL  LCF,  CONBUSTOR . 3.1' 

131  LPRINTiLPRINTiLPRlNT 

141  LPRINT'I  INDEPENDENT  OF  TIRE' 


ISI  LPRINT'I  INGESTION  (FOB)  AND  RISUSE' 

161  LPRINT'I  INSUFFICIENT  REDUNDENCY' 

171  LPRINT'I  HAINTENANCE  ERRORS* 

161  LPRINT'I  HUTURE  OF  PROBLEHS* 

191  LPRINT'I  ORIGINAL  DESIGN  DEFICIENCIES' 

211  LPRINT'I  RANDOH  FAILURES . 1. 1' 

211  LPRINTiLPRINTiLPRlNT 

221  LPRINT'I  SLOPES  LESS  TIMN  1.1  ARE  INFANT  RORTALITY  HHERE  RELIABILITY  HILL  IN 
CREASE' 

231  LPRINT'HITH  AGE.  ALSO  INDICATES  A  QUALITY  PROBLEH  SUCH  AS  HISASSENBLY.  USU 
ALLY' 

241  LPRINT'HAS  A  VALUE  AROUND  I.S.' 

2SI  LPRINT 

261  LPRINT'I  SLOPES  GREATER  THAN  1.1  ARE  GENERALLY  HEAROUT  FOR  ONE  REASON  OR  ANO 
THER.' 

271  LPRINT 

281  LPRINT'I  A  SLOPE  OF  2.S  IS  USUALLY  GRADUAL  HEAROUT.' 

291  LPRINT 

311  LPRINT'I  A  SLOPE  OF  3.44  APPROHNATES  A  ULL  SHAPED  CURVE  (NORHAL  BISTRIBUTI 
ONI.* 

311  LPRINT 

321  LPRINT'I  SLOPES  GREATER  THAN  ABOUT  4.S  ARE  USUALLY  RAPID  HEAROUT  (BRICK  HALL 

).' 

Sll  CHAIN  'HEIBER* 

9996  END 

9999  CLSiPRINT'SAVING  BETAHIST  ON  BISK  B'tSAVE'BiBETAHIST* 
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188  CLS 

118  LPRINT' 

HEIDULL  PARANETER  CALCULATION' 

128  LPRINT' 

PRATT  1  HHITNEY  AIRCRAFT  -  6PD  -  UTC 

138  LPRINT' 

AS  IRPROVED  DY  JARES  L.  DYERS,  CODE  6852 

148  LPRINT' 

NAVAIRDEVCEN,  NARRINSTER,  PA  18974' 

INT 

158  LPRINT' 

VERSION  18  FEB  1987’ 

iSS  LPRINTiLPRINT 

16f  DIR  IS(lll),RA(llll,R(lfl),RO(tlf),TT(IM),nilfl) 

US  DIR  YI(lff),IN(lfl),TI(lH),V(tll),IZ(lM),l(ilf) 

17f  CLSiPRINT'  MEIBULL  PRRARETER  CRLGULRTIDN' 

181  PRINT'  PRATT  A  HHITICY  AIRCRAFT  -GPD  •  UTC 

198  PRINT'  AS  IRPROVED  lY  JARES  L.  BYERS,  CODE  AIS2' 

288  PRINT*  NAVAIRDEl^EN.  NARRINSTER.  PA  18974' 

228  IPt8 
238  IR>8 

248  PR1NT;PR1NT!PRINTjPRINT:PR1NT'  ARE  YOU  INPUTTIN6  A  H1ST06RAR  0 

F  SUSPENSIONS?' :PRlNTiPRINT 

258  PRINT'  ANSHER  Y  OR  N'S! INPUT  A4 

268  IF  AI«'N'  SOTO  478 
24;  IF  A4*'Y'  SOTO  278 
262  CLSilF  AtO'Y'  SOTO  248 


278  IPM 

288  CLS;PRINT!PRINT'  AN  INTERVAL  SIZE  IF  58  IS  ASSURED.’ 

298  PRINTtPRINTiPRlNT'  O.X.? . ANSHER  Y  OR  N';)  INPUT 

At 

295  IF  A<«'Y'  SOTO  338 
388  IF  At  <)  'Y'  SOTO  318 

318  PRINTsPRINTtPRlNT*  INPUT  THE  INTERVAL  SIZE  YOU  HILL  USE’ 

328  PRINTiPRINTiPRiHT'  HITH  OECIRAL.*;iINPUT  PE 

338  PRINTiPRINTiPRINT'  PLACE  THE  NUR8ER  OF  PARTS  OR  CORPONENTS  IN  EACH  IN 
TERVAL  OF’ 

348  PRINT'  THE  HISTOSRAR.' 

358  PRINTjPRIHT'  INPUT  -99  TO  INDICATE  THE  END  OF  THE  DATA' 


368  R«8 

378  R«N«1 

388  INPUT  II 

398  IF  XI*-99  SOTO  418 

488  ININIilIiSOTO  378 

418  HR>N-I 

428  FOR  I>1  TO  HHiPRINT  IN(U|lNEIT  ItPRINT 
438  1R>8 

448  FOR  J>1  TO  RH 
458  TIIJ)*PE/2!«U-l)tPE 
468  IR'IHMNUltNEIT  J 

478  CLSiPRlNTiPRINTlPRINT'INPUT  THE  FAILWE  DATA  AND  SUSPENSIONS  HITH  KCIHAL... 
USE  -99999  TO* 

488  PRINT' INDICATE  THE  END  OF  THE  DATA  (ffiSATIVES  INDICATE  SUSPENSIONS,  UNLESS  A 

• 

498  PRINT’HISTOSRAH  NAS  INPUT) 'iPRINTiPRINTtPRINT 
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511  IM 
Sll  I>141 
521  INPUT  A(I) 

531  IF  A(ll«f!  60T0  561 

541  IF  A(Il»-?9999!  60T0  S8f 

551  GOTO  Sll 

561  I«l-1 

571  GOTO  Sll 

SOI  N>I-1 

591  INiNMN 

611  FOR  M  TO  NiM«A(J):V(JI>AIS(AH)tNEIT  3 
611  GOSUB  1B8I 

621  FOR  1«1  TO  N:IU*IZ(Iltl(n>A(IU)tNEn  I 

631  FOR  I«1  TO  NtA(n«I(IliNEXT  I 

641  B 1  'BAM !  0  3  *1 1  i  B  J«l !  1  Mli  SI«I !  i  SY«I  I :  n«B !  t  Y9«l  < :  IY<I ' 

651  PRlNTsPRINT 

661  PRIHT’POINT  DATA  ORDER  MEDIAN  RANK'tPRINT 

671  LPRINT'POINT  DATA  ORDER  MEDIAN  RANK'iLPRINT 

681  FOR  K«1  TO  N 
691  IM«I 

711  IF  1P«|  GOTO  751 
711  FOR  3>1  TO  MM 

721  IF  TKJ)  <  AIK)  THEN  lRiIR4lN(3) 

731  NEIT  J 
741  IS(K)«1M 
751  BMIH+K 

761  IF  IP<1  THEN  IKtBK-1! 

771  IF  IP.l  AND  K«1  THEN  DJ«(Bl-BJ)/(ll-BK) 

7BI  IF  Ktl  goto  821 

791  IF  IPt|  GOTO  821 

811  IF  I5(K)*ISIK*n  GOTO  821 

811  DJ«(B1-BJ)/(B1*IK) 

821  IF  AIK)  <  I*  GOTO  851 

831  IF  Add >11  GOTO  1161 

841  IF  Add  >  II  GOTO  861 

BSI  OJ«(Bl-BJ)/(ll-lKliGOTO  921 

861  l3*l34DJiR0dd«IJiRA(KM(R0(ld-.3l/(8N4.4l 

871  ll«L0G(A(l!lljYP»l!/n'-RA(ld)jY*l081L06(YPIIjYIdd»Y 

881  PRINT  K,Alld,RO(ld,RAdd 

891  LPRINT  K,A(K),RO(K),RA(Kl 

911  H>N41 

918  8I«Sl4U«n»«4mU:8Y«5Y*YiYY«YY4YIYtIY»IY4mY 

921  NCn  K 

938  PRlNTiPRINT 

941  LPfilNTi LPRINT 

958  GN*N 

968  IE> (GMlYY-SYtSY 1 / (GMlIY-SItSY) 

978  AL«  (lEtSX'SY)  /6M:  AV«Al7IEi AV4XP(AV)  1 8T>IE 
988  PRINT'IETA«*|8T,'ETA«*jAV 
991  PRlNTiPRINT 

tH8  LPRINT*IETA»'|8T/ETA«*|AV 
1818  LPRlNTlLPRINT 
1828  R>8! 

1838  IF  (XI-SII8X/GNI  <  8!  GOTO  1878 
1848  XN>IY*SXI8Y/6M 

1858  K«S0R((n-Slt8X/GMItlYY-SYIST/GM)) 
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1161  R^IN/DE 
1171  R0«RIR 

1181  IF  Rfl  >  II  THEN  RAM! 

1181  PRINT iPRlNTiPRINT'DD  YOU  NISH  TO  DO  R  IMIIHUN  LIKELIHOOD  ESTINATION?' 

nil  PRINT'ANSNER  Y  OR  N'{|  INPUT  At 

Ills  IF  Af'Y*  THEN  1121 

nil  IF  A$fN'  GOTO  1131 

nil  IF  AlO'N*  THEN  1181 

1121  CLSiNFtftPRINTtPRINTtPRINTiPRINT*  PLEASE  K  PATIENT . . 

ITERATING. *iPRlNTiPRINTiPRINT 
1131  GOSUI  1181 

1131  PRINTiPRINTiPRINTsPRINT'DO  YOU  HAVE  ANOTHER  ANALYSIS  TO  DO?' 

1132  PRINT:PRINT'ANSHER  V  OR  N'liINPUT  AlilF  At>*V'  TNEN  171 

1135  IF  At>'N*  THEN  IIM 

1136  IF  AIO'N*  THEN  CLSiGOTO  1131 

1141  PRlNTiPRINTiPRINT'PRESS  ENTER  TO  RETURN  TO  HENU'tiINPUT  At 
list  IF  AtO"  SOTO  1141 
1161  CHAIN  'NEIBER' 

1171  END 

1181  FOR  1<1  TO  N 
1181  TT(I|tABS(A(in 
1211  IF  AlII  <  f!  GOTO  1231 
1211  NF>NF41 
1221  I2INF)>A(I) 

1231  NEIT  I 

1241  OT«.lflliNL<llli)IB>BE>YA>.ffnNC>fiOII*.ffltDY>.ll 

1251  GOSUB  143fiYB«AU 

1261  GOSUI  lS6fill«BBI 

1271  ON  JK  GOTO  1251,1341,1281,1341 

1281  GOTO  1251 

1281  PRINT* ITERATION  FAILURE* 

1311  LPRINT*ITERATION  FAILURE* 

1311  PRINT*BETA*‘|XB,*LN  IMIIHUN  LIKELIHOOD«*|YI 
1321  LPRINT*BETA>*|XB|,'LN  NAIIHUH  LIKELIHOOD«*;YB 
1331  RETURN 

1341  BL>XliSU>f!iRN*NFiFOR  I«1  TO  NiSU-SU^TTUriLiNEXT  I 
1351  IF  IP*I  GOTO  1371 

1361  FOR  I«1  TO  HHl8U<SUMN(IltTnirBLtNEIT  I 
1371  SU>SU/RNiTL«SU*(l!/IL) 

1381  PRINT'NAIinUH  LIKELIHOOD  ESTINATES  FOLLON* 

1381  PRINTiPRINTiPRINT*IETA>'|K,'ETA>'|TL 
I4N  LPRINTiLPRINT'NAIinun  LIKELIHOOD  ESTINATES  FOLLONi'iLPRINT 
1411  LPRINT*DCTA«'|IL,'ETA«*|TL 
1421  RETURN 

1431  81t*l!i82l*f!t83l*8! 

1441  IF  IB  >  IS  OR  XI  <■  I!  THEN  Xl«.i 

1451  FOR  IM  TO  N 

1461  POI>TTUrXI 

1471  SII«S1D«P0I 

1481  S2l>S2IH0G(TTIintP0l 

1481  NEXT  I 

ISff  IF  IP>f  GOTO  1531 

1511  FOR  I-l  TO  NNtPOD>TI(irili81l«Sll«INUItPOI 
1521  82l*S2IMN(I}tL0GITI(I))tP0DtNElT  I 
1531  FOR  I>1  TO  NFi83D>83l«L0G(IZUniNEXT  1 
1541  AU«(S2l/SII)-(S3l/NF)*n!/XII 
ISSf  RETURN 
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1561 

1571  IF(ABS((YA-YB)/YA)-OT)  <>  f!  60T0  1B4I 

1581  IF  (NC-l)  <>  B  6070  1611 

1591  6070  1651 

1611  DII>IBI 

1611  DYI«YA-YB 

1621  NC-NCM 

1631  BII«BBII1.I2 

1641  RE7URN 

1651  IF  NC  >  NL  6070  1851 
1661  I2I>BBI 
1671  021-YA-YB 

1681  IF  ABS(D2I-DYI)  <  .Mill  6070  1871 
1691  6II«I2I'02II (121-Dll) / (D2I-0VI) 

1711  IF  IBI  <«  f!  6070  1811 
1711  IF  BBt  <  121  6070  1741 
1721  IF  BBI>I2I  6070  1791 
1731  IF  BBI  >  121  6070  1761 
1741  IF  III/I2I  >«  .6  6070  IBM 
1751  BBM12II. 751 6070  IBIf 
1761  IF  181/121  <  1.4  6070  IBID 
1771  BBI«I2II1.23 
1781  6070  IBM 
1791  BBI«l2Ml.f2 
1811  811*121 
1811  DYI«02I 
1821  NC*NCM 
1831  RE7URN 
1841  3K*2tNC*2iRE7URN 
1851  PRIHY'FAILED  70  CORVERBE* 

1861  3K*3lNC«liRE7URN 
1871  JK«4iRE7URN 

1881  FOR  J*|  70  NiIZ(J)«JiNE17  i 

1891  IF  N*!  7HEN  RE7URN 

1911  NN*N-1 

1911  FOR  Ml  70  N 

1921  FOR  3*1  70  NR 

1931  MI«IZI3) 

1941  N2«IZ(JM) 

1958  IF  V(N1)  <  V(N2I  6070  1978 
1968  IZ(3M)«NliIZ(3)*N2 
1978  NE17  3 
1988  NEH  K 
1998  RE7URN 

9998  ERD 

9999  CLS:PRIR7'SAVIR6  PHAREIBl  OR  II8K  fiSAVE  'liPRAREIIL' 


A-41 


NADC-89019-60 


31  REH  Ittttlltlllitttttit  PR06RAN  BI6HEIBL  ttttlttttllltlttltlltltlttlttll 

71  CLS 

1411  GOTO  17311 
Ifff  BIN  ETR(4) 

199f  Y«llfl 
2Hf  BIN  BETA (4) 

2ISI  BIN  FAIL(Y) 

2133  BIN  BISF(Y) 

2111  BIN  N(Y) 

2211  BIN  TTIYI 
23H  BIN  TIY) 

2411  BIN  BUST (131) 

2311  BIN  NTF(Y) 

2411  BIN  f(Y) 

2711  BIN  TF(Y,4) 

2811  BIN  RUMFAIL(l) 

293f  RANBON12E  Z 
3111  TOTFAIL*! 

31fB  FOR  KM  TO  J 
3211  REAR  BETA(K) 

3311  NEIT  K 
3411  FOR  K«1  TO  3 
33#f  READ  ETA(K) 

34ff  NEIT  K 
3711  FOR  K«1  TO  S 
3811  REAO  N(K),T(K) 

41fl  NEIT  K 

42M  RESTORE 

4311  SUN«I 

44ff  TNAI«UTRIN01 

44Sf  LPRlNTiLPRlNTtLPRINT 

4311  LPRINT*  NEIBULl  RISK  ANALYSIS' 

44ff  LPRINT'  A  NONTE  CARLO  8INULATI0N' 

4711  LPRINT*  lIMEIIL'iLPRlNTiLPRINT 

48ff  LPRINT*  engine  i'jEIiLPRINTjLPRINTiLPRINT 

49ff  LPRINT'BETA  VALUES  i* 

SMB  FOR  YM  TO  JiLPRINT  BETAIYI.tNEIT  YiLPRINTiLPRINTiLPRINT 
31N  LPRINT’ETA  VALUES  i’ 

S2M  FOR  YM  TO  JiLPRINT  ETA(Y),:NEIT  YiLPRINTiLPRINTiLPRINT 
3311  LPRINT'BATA  PAIRS  I* 

3411  LPRINT'NO.  ENGS.'i*  INIT.  TINE* 

3SN  FOR  YM  TO  SiLPRINT*  '(NlYl.TlYIiNIlT  YiLPRINTiLPRINTiLPRINT 
34fl  PRINT'NAIINUH  OPERATING  NOURS  PER  ENGINE  FOR  TNI8  ANALYSIS  I8'|TNAI;'H0URS' 
iPRINTiLPRINT'NAlIHUH  OPERATING  NOURS  PER  ENGINE  FOR  THIS  ANALYSIS  IS'|THAI|'HOU 
RS'iLPRINT 

3711  PRINT* INSPECT ION  INTERVAL  FOR  THIS  ANALYSIS  18*)lNSPT}'H0UR8*tPRINTiLPRINT* 
INSPECTION  INTERVAL  FOR  THIS  ANALYSIS  IS*|INSPT|*HOURS*iLPRINT 
3811  PRINT'TINE  8URATION  OF  THIS  ANALYSIS  IS*|NOI|'NONTNS*lLPRINT*TIHE  BURATION 
OF  THIS  ANALYSIS  IS*|NOI|*HONTHS'iLPRINTiPRINT 

SVN  PRINT'UTILIZATION  RATE  IS* tUTR| 'HOURS  PER  ENGINE  PER  NONTH'tPRlNTiLPRINT'UT 
ILIZATION  RATE  IS*|UTR| 'HOURS  PER  ENGINE  PER  NONTN'iLPRINT 
4BM  FOR  LM  TO  S 

GIN  PRINT*  lltlIttIMtIltfllllll  NTA  PAIR  HUN8ER*|L|*  tiitttitttllllitttitttll 
tt'iPRINTiPRINT 

42N  LPRINT*  lUtIMItItllltUIIII  MTA  PAIR  NUH8ER*|L|*  tttlttlltlltttlllltttll 
tll'iLPRINTiLPRINT 
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6251  PRINT;PRINT:PRINT!PR1NT'  PLEASE  BE  PATIENT  -  i’H  COHPUT 

IN6  THE  FAILURES' 
i3ff  FOR  N*1  TO  I 
SAIB  PRINT  N 
iilf  FOR  I>1  TO  NIL) 

&7fl  PRINT  I, 

7Hf  FOR  K«I  TO  J 

7111  TF(I,K)«ETA(K)IIL06(t/(t-RN0lZ))))Ml/(BETAIK))) 

72IB  IF  TFII.KXTIL)  THEN  TIM 

73M  IF  TFII.KXINSPT  THEN  7SM 

74BB  IF  TF(I,K))INSPT  THEN  78M 

7SM  a(K)>IiBUST(KI«BUSTIK)tO(K)iB(K)>f 

7BH  NETT  K 

TMB  60SUB  IHff 

BIBB  GOTO  13311 

9MI  SUH«SUn>FAlLS 

9111  TOTFAIL*TOTFAIL*SUH 

9211  RUNFAlLS>RUNFAILS^SUn 

93BB  FA1L(1)«FA1LII)*FA1LS 

96BB  FAILS*! 

9711  SUH«i 

9911  BI6F(I)«BISF(IXFAlL(I)iFAlL(I>*l:TT(l>«l 
992!  SOTO  IS!!! 

1!!!!  FOR  A«1  TO  J*1 
1!1!!  B*A 

l!2!!  FOR  C*AM  TO  i 

1!3!!  IF  TFlI.CXTFfl.BI  THEN  l!SI! 

1!4!!  SOTO  IM!! 

1!S!!  BtC 
1!6!!  NETT  C 
t!7!!  0*TF(I,A) 
l!8!!  TF(I,A)«TF(I,B) 

1!9!!  TF(I,B)*D 
U!!!  NETT  A 
111!!  RETURN 
12!!!  FOR  K*1  TO  3 

121!!  TFII,K)*ETAIK)tlLOSIl/lt-RNDlZ))))*ll/IBETAIX))) 

124!!  IF  TFII,KXINSPT  THEN  12SB!  ELSE  t26M 
123!!  OIKI*liBUSTIK)*BUSTIK)fBIK)iB(KI«! 

124!!  NETT  K 
1241!  SOSUB  IN!! 

133!!  IF  TFII,1XIN8PT  AM  ITFU,n«TT(I)XTmT  THEN  FAIL8>FAILSM 

134!!  IF  TFII.IDIHBPT  THEN  TF(I,tl«lNBPT 

137!!  TTII|.TTII)*TF(l,n 

13S!!  IF  TTin>>TNAT  THEN  TT(n>TNAl 

141!!  IF  TT{|)«>TNAT  THEN  9N!  ELSE  i2BH 

149!!  PRINT  I, 

13BM  NETT  1 

1321!  IHINFAIL(N)>NUNFAIL8 
13311  SUR>!iFAIL8>fiNUNFAIL8*f 
1333!  PRINT  N 
I34N  NETT  R 
1S4SI  CL8 

1371!  SUH'TOTFAlL/TiLPRINTiLPRINT'AVERASE  NUNBER  FAILURES'|T|'ITERATIONS  •  'iSUH 
iLPRINTtLPRINT 

I3BH  PRINT'AVERAGE  NUNBER  FAILURES'lH'ITERAIONS  •  'iSUNiPRINT 
1391!  T0TFAIL*li8UH>B 


A-43 


NADC-89019-60 


lifll  FOR  H*1  TO  I 

16111  PRINT'NUNBER  OF  FAILURES  IN  ITERATION*}N;*<*;RUNFAIL(N){>PRINT 
16211  NEXT  N 

16311  FOR  R*1  TO  N(L):BI6FIR)«B16FIR)/XiNEIT  R 
16411  PRINT 

16Sfl  FOR  N>i  TO  I:LPRINT'NUNBER  OF  FAILURES  IN  ITERATI0N';N;'>‘|RUNFA1L(N)!LPR1 
NTiNEXT  N 

16611  LPRINTiFOR  R«1  TO  NIL):B16F(R)<fiNEIT  R 
16SBf  NEXT  L 
Uffl  SOTO  283BI 

17311  CLSiPRINT'THIS  IS  THE  DATA  INPUT  SECTION  OF  THE  NEIBULL  RISK  CODE  (SHORT  V 
ERSION).' 

17411  PRINT 

17511  PRINT'YOU  HILL  DE  ASKED  TO  INPUT  VARIOUS  DATA  IN  A  6IVEN  FORNAT.' 

17611  PRINT 

177H  PRINT'THE  FORNAT  IS  CRITICAL  SO  FOLLOH  INSTRUCTIONS  CAREFULLY. 'iPRINT 
17811  PRINT'TYPE  1  (ENTER)  TO  INPUT  DATA.  TYPE  -1  (ENTER)  TO  OUIT.  YOUR  CHOICE 

•  . 

17911  INPUT  Z1 
18fff  CLS 

18111  IF  Zl>-1  THEN  261M 
18211  IF  Z1<1  THEN  21211  ELSE  17811 
2I2II  CLS 

2I3II  PRINT'NON  TYPE  THE  FOLLONINS  s*iPRINT 
21411  PRINT*2S8II  DATA  8ETA(1I,8ETA(2I,...,BETA(J)* 

21511  PRINT*  NHERE  DETA(l)  IS  THE  NEIBULL  SLOPE  FOR  THE  FIRST  RODE  OF* 

21611  PRINT*  FAILURE,  BETA(21  IS  THE  NEIBULL  SLOPE  FOR  THE  SECOND  NODE* 

21711  PRINT*  OF  FAILURE,  AND  SO  ON  UNTIL  THE  NUMBER  OF  BETA’S  CORRESPON 

0* 

21811  PRINT*  TO  THE  INTEGER  FOR  THE  NUHBER  OF  FAILURE  NODES.  SEPARATE* 

21911  PRINT*  SETA’S  NITH  CORNA’S.'lPRINT 

2lffl  PRINT*AFTER  THE  LAST  BETA  IS  TYPED,  PRESS  (ENTER)  THEN  TYPE  ’RUN  21311’  AN 
D* 

21111  PRINT*(ENTER).* 

21288  STOP 
21388  CLS 

21488  PRINT*NON  TYPE  THE  FOLLONINS  I'lPRINT 
21588  PRINT*25988  DATA  ETA(1),ETA(2>,...,ETA(8)* 

21688  PRINT*  NHERE  ETAdI  IS  THE  CHARACTERISTIC  LIFE  FOR  THE  FIRST  RODE 

f 

21788  PRINT*  OF  FAILURE,  ETA(2)  IS  THE  CHARACTERISTIC  LIFE  FOR  THE* 

21888  PRINT*  SECOND  NODE  OF  FAILURE,  AND  SO  ON  UNTIL  THE  NUNOER  OF  ETA’ 

S* 

21988  PRINT*  CORRESPOND  TO  THE  INTEGER  FOR  THE  NURIER  OF  FAILURE  NODES. 

• 

22N8  PRINT*  SEPARATE  ETA’S  NITH  COHHA’S.'iPRIHT 

22188  PRINT*AFTER  TK  LAST  ETA  IS  TYPED,  PRESS  (ENTER)  THEN  TYPE  'RUN  22488’  AND 


22288  PRINT*(ENTER).* 
22388  STOP 
22488  CLS 
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22Sff  PRINT'NON  TYPE  THE  FOLLOHINS  i'tPRINT 

^  ^  ^ 

22711  PRINT'  HHERE  N1  IS  THE  NUHBER  OF  EN6INES  AT  TIHE  Tl* 

22811  PRINT'  Tl  IS  THE  OPERATINE  TINE  OF  ENGINES  Nl' 

22911  PRINT'  N2  IS  THE  NUNBER  OF  ENGINES  AT  TIRE  T2' 

23818  PRINT'  T2  IS  THE  OPERATING  TINE  OF  ENGINES  N2,  ftc.'tPRINT 

23118  PRINT'USE  ADDITIONAL  LINES  AS  NEEDED  TO  ADD  HORE  DATA.' 

23281  PRINT'NHEN  THE  LAST  DATA  PAIR  IS  ENTERED,  TYPE  'RUN  23488'  AND  (ENTER).' 
23388  STOP 
23488  CLS 

23S88  PRINT'NM  INPUT  THE  NUNBER  OF  DATA  PAIRS  JUST  ENTERED. '|t INPUT  SiPRINT 
23788  PRINT'INPUT  THE  TOTAL  NUNDER  OF  ENGINES  IN  THE  SANPLE  -  NOT  OVER  1188'!; IN 
PUT  RiPRINT 

23988  PRINT'INPUT  THE  NUNDER  OF  NORTHS  THAT  THIS  ANALYSIS  HILL  COVER,  i.t.,  3G  F 
OR  THREE  YEARS. INPUT  NOItPRINT 

24288  PRINT'NEIT,  INPUT  THE  OPERATING  HOURS  PER  NORTH  (AVERAGE)  OVER  THE  TINE' 
24388  PRINT'PERIOD  OF  THIS  ANALYSIS. '|i INPUT  UTRtPRINT 
24S88  PRINT'INPUT  THE  INSPECTION  INTERVAL  FOR  THE  ENGINE  OF  THIS  ANALYSIS. ‘itINP 
UT  INSPTtPRINT 

24788  PRINT'INPUT  THE  NUHBER  OF  FAILURE  NODES  OF  THIS  ANALYSIS.'!! INPUT  J:PRINT 

24988  PRINT'INPUT  THE  ENGINE  DESIGNATION. 'it INPUT  EliPRINT 

249S8  PRINT'INPUT  ANY  NUHBER  BETHEEN  M  AND  «327G7  TO  SEED  THE  RANDON  NUNBER  GEN 

ERATOR.  USE  A  DIFFERENT  NUHBER  FOR  EACH  ANALYSIS.'itINPUT  IiPRINT 

24968  PRINT'LASTLY,  INPUT  THE  NUNBER  OF  ITERATIONS  TO  BE  PERFORNED  DURING  THE  AN 

ALYSIS.'!! INPUT  I 

2S188  CLS 

25588  GOTO  1988 

25888  DATA  3.55 

25988  DATA  2741 

26888  DATA  1888,8 

26188  END 

28588  PR1NT:PR1NT;PRINT'D0  YOU  HAVE  OTHER  ANALYSES  TO  DO  -  (Y)  OR  IN)'!! INPUT  At 

28518  IF  AI*'Y'  THEN  17388 

28528  IF  At«'N'  THEN  CHAIN  'NEI8ER' 

28558  CLSiGOTO  28588 
29998  END 

38888  CLS;PRINTiPRINTiPRINT'SAVING  BIGHEIBL  ON  DISK  B’iSAVE  'B;BI6HEIBL';END 
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18 

CLS 

IS 

PRINT* 

NEIBAYES  ANALYSIS* 

28 

PRINT* 

NHEN  HEIBULL  PLOTS  ARE  IHPOSSIBLE* 

l> 

38 

PRINT* 

NRITTEN  BY  JANES  L.  BYERS* 

35 

PRINT* 

NAVAL  AIR  DEVELOPNENT  CENTER,  CODE  6852* 

48 

PRINT* 

NARHINSTER,  PA  18974* 

45 

REN 

58 

REN 

55 

REN  ttttttUttttlltItllltl  PR06RAN  NEIBAYES  IttUttlltMItIttttItlltli 

68 

REN 

65 

REN 

78 

LPRIHT* 

HEIIAYES  ANALYSIS* 

75 

LPRINT* 

NHEN  HEIBULL  PLOTS  ARE  IHPOSSIBLE* 

88 

LPRIHT* 

DUE  TO  A  LACK  OF  FAILURE  DATA* 

85 

LPRINT* 

NRITTEN  BY  JANES  L.  BYERS* 

98 

LPRINT* 

NAVAL  AIR  DEVELOPNENT  CENTER.  CODE  6852* 

95 

LPRIHT* 

NARHINSTER.  PA  1B974* 

97  PR1NT!PRINT:LPRINT:LPR1NT 

III  PRINT'OO  YOU  KNOM  THE  VALUE  OF  THE  CHARACTERISTIC  LIFE  (INPUT  <Y>  OR  <N»'; 

Itf  INPUT  At 

121  IF  At«’N'  THEN  Sfl 

131  IF  AI<*Y'  THEN  1191 

Sff  PRINTiPRINTiPRIP' 

SSI  PRINT'YOU  HILL  NOV  DIVERT  TO  THE  'ETACALC*  PROSRAN  IN  ORDER  TO  CALCULATE* 
361  PRINT'THE  VAl' .  OF  THE  CHARACTERISTIC  LIFE.  AFTER  THE  VALUE  OF  ETA  IS* 

371  PRINT'OFTERHINED,  HAKE  A  NOTE  OF  IT  AND  RELOAD  THIS  PROMAH  •  HEIDAYES.' 

SBI  PRINTiPRINT'PRESS  ENTER  KEY  TO  CONTINUE.* 

711  INPUT  N«iIF  Nt<*'  THEN  CHAIN  *ETACALC' 

922  0  PRINT'EIPERIENCE  IS  OBTAINED  HITHOUT  A  FAILURE  (OR  FEN  FAILURES)  SUCH  THAT 
A- 

1191  CLS 

I  Ilf  PRINT  jPRINTiPRINTiPRINT'DATA  INPUT - ENTER  THE  FOLLONINS:* 

1211  PRINT:PRINT'4ffl  DATA  BY* 

1311  PRINT*  HHERE  BI  «  THE  PERCENT  OF  THE  POPULATION  ALLONED* 

1331  PRINT*  TO  FAIL,  i.l.,  f.Nl  FOR  D.l  LIFE’ 

1335  PRINT*  DO  NOT  USE  l.f  OR  ANY  PERCENT  >  1.999999* 

14ff  PRINTiPRINT*4l4l  DATA  l,H* 

ISff  PRINT*  HHERE  D  >  THE  ASSURED  VALUE  OF  THE  HEIMILL  SLOPE* 

1351  PRINT*  'SETA*  AND  H  ■  THE  CALCULATED  VALUE  OF  THE  CHAAACTERI 

STIC* 

1375  PRINT*  LIFE  'ETA'* 

1843  PRINT’HHEN  ALL  DATA  IS  ENTERED,  INPUT  <RUN  1B49>  TO  CONTINUE.* 

1846  STOP 
1849  CLS 
IBS!  READ  Dl 
1861  READ  IETA,ETA 
1871  RESTORE 
4888  DATA  8.999999 
4841  DATA  3,IH8 
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8111  L  >  (-LOSa-BlUMl/BETAttETA 
Bill  BU  <  l-(EIPI(-(L/ETA)r(BETAI)> 

BHI  Bn>Bntlff 
B99I  CIS 

9MI  PRINT*  LIFE  CALCULATION  FOR  HEIBAYES* 

9111  PRINTiPRlNT 

9111  PRINT'PERCENT  OF  POPULATION  ALLOHED  TO  FAIL  *'|BII|' (CALCULATED  VALUE).* 
9171  PRlNTiPRINT'THE  CALCULATED  LIFE  USIN6  THE  INPUT  VALUE  OF  BT  IS  EBUAL  TO‘|L 
9IBf  PRlNTiPRINT'lF  THIS  VALUE  IS  SNALLER  THAN  ACCEPTABLE  THEN  THE  CALCULATED  VA 
LUE  OF* 

9191  PRINT*ETA  (CHARACTERISTIC  LIFE)  IS  TOO  SHALL.  THIS  RAY  IE  DUE  TO  A  LACK  OF 

• 

9211  PRINT*SUFFIC1ENT  0PERATIN6  TIRE  USED  IN  THE  CALCULATION  OF  ETA.  INSUFFICIE 
NT* 

9211  PR1NT*DATA  INDICATES  A  NEED  TO  EIERCISE  CONSERVATISR  UNTIL  ENOU6H  OPERATION 
AL* 

9221  PRINT*ETPERIENCE  IS  OBTAINED  NITHOUT  A  FAILURE  (OR  FEN  FAILURES)  SUCH  THAT 

A* 

9231  PRINT*HI6HER  VALUE  OF  ETA  IS  CALCULATED.* 

9241  PRlNTsPRINT'BETA  USED  NAS'tBETA}*  ETA  USED  HAS*)ETAt*.* 

92Sf  LPRINT*  LIFE  CALCULATION  FOR  HEIBAYES* 

9255  LPRINTi LPRINT 

9261  LPRINT*PERCENT  OF  POPULATION  ALLOHED  TO  FAIL  **|inr (CALCULATED  VALUE).’ 
9265  LPRINT2LPR1NT*THE  CALCULATED  LIFE  USING  THE  INPUT  VALUE  OF  Bl  IS  EQUAL  TO*; 
L 

9271  LPRINT:LPRINT*IF  THIS  VALUE  IS  SNALLER  THAN  ACCEPTABLE  THEN  THE  CALCULATED 
VALUE  OF* 

9275  LPRINT*ETA  (CHARACTERISTIC  LIFE)  IS  TOO  SHALL.  THIS  RAY  BE  DUE  TO  A  LACK  0 

F* 

9281  LPRINT*SUFFICIENT  OPERATING  TIRE  USED  IN  THE  CALCULATION  OF  ETA.  INSUFFICI 
ENT* 

9285  LPRINT*DATA  INDICATES  A  NEED  TO  EIERCISE  CONSERVATISR  UNTIL  EN0U6H  OPERATIO 
NAL’ 

9291  LPRINT*EIPER1ENCE  IS  OBTAINED  NITHOUT  A  FAILURE  (OR  FEH  FAILURES)  SUCH  THAT 
A* 

9295  LPRINT*HIGHER  VALUE  OF  ETA  IS  CALCULATED.* 

9297  LPRINTiLPRINT*BETA  USED  HA8*|KTA|*  ETA  USED  HAS’iETA;'.* 

93ff  PRINT>PRlNTiPRINT*DO  YOU  HAVE  ANOTHER  CASE  TO  RUN,  (Y>  OR  <N>*tiINPUT  II 

9311  IF  II  «  *Y*  THEN  97 

9321  IF  II  *  *N’  THEN  ffff 

9331  CLSiSOTO  93N 

99ff  CHAIN  *NEIIER* 

9998  END 

9999  CLStPRINTiPRINTtPRINT*8AVINB  HEIBAYES  ON  BISK  D'lSAVE  'ItHEIDATES'iEND 
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5 

CLS 

6 

K«l 

11 

PRINT* 

ZERO  FAILURE  TEST  PLAN  GENERATION* 

15 

PRINT* 

NUMBER  OF  TEST  UNITS  AND  TEST  TINE  FOR  EACH* 

31 

PRINT* 

HRITTEN  BY:  JAMES  L.  BYERS,  CODE  6152* 

35 

PRINT* 

NAVAL  AIR  DEVELOPMENT  CENTER* 

41 

PRINT* 

NARNINSTER.  PA  18974* 

45 

PRINT* 

VERSION  17  RAY  B7* 

46 

IF  KOI  THEN  111 

SI 

LPRINT* 

ZERO  FAILURE  TEST  PLAN  GENERATION* 

55 

LPRINT* 

NUMBER  OF  TEST  UNITS  AND  TEST  TIME  FOR  EACH* 

61 

LPRINT* 

HRITTEN  BY* 

65 

LPRINT* 

HRITTEN  BYt  JMES  L.  BYERS,  CODE  6152* 

75 

LPRINT* 

NAVAL  AIR  DEVELOPMENT  CENTER* 

61 

LPRINT* 

NARNINSTER,  PA  18974* 

65 

LPRINT* 

VERSION  17  MAY  67* 

111 

PRINT:PRINT'THIS  CODE  CALCULATES  THE  STATISTICAL  REQUIREMENT  FOR  SUBSTANTIAT 

ION  TEST1N6  THAT* 

Ilf  PRINT'DEHONSTRATES  A  REDESIGNED  PART  /  SYSTEM  HAS  ELIMINATED  OR  SI6NIFICANTL 
Y  IMPROVED* 

12f  PRINT'D  KNONN  FAILURE  MODE  •  BETA  AND  ETA  ARE  ASSUMED  TO  DE  KNONN.'sPRINT 
131  PRINT'THE  RESULTING  TEST  PLAN  GIVESt* 

141  PRINT'  1,  THE  REQUIRED  NUMBER  OF  TEST  UNITS' 

ISI  PRINT*  2.  TEST  TIME  TO  BE  ACCUMULATED  DM  EACH  UNIT'iPRINT 

161  PRINT'FIFTY  (SI)  IS  THE  UPPER  LIMIT  OF  TEST  UNITS  AND  TEST  TIME  IS  ETPRESSED 
AS  A* 

171  PRINT'FRACTION  OF  THE  CHARACTERISTIC  LIFE,  ETA.* 

161  PRINT*  RATIO  «  (TEST  TIME) /(CHARACTERISTIC  LIFE)* 

191  PRINT*  OR* 

211  PRINT*  TEST  TIME  «  RATIO  t  CHARACTERISTIC  LIFE'lPRINT 

211  PRINT'INPUT  THE  MEIBULL  SLOPE  BETA  (BETA  <«S.I  ONLY)  FOR  THE  FAILURE  NODE*;: 

INPUT  BETA 

221  PRINT'INPUT  THE  CHARACTERISTIC  LIFE  ETA*|i INPUT  ETAlGOTO  351 

351  CLS:PRINT:PRINT*USUALLY  A  TEST  PROGRAM  IS  DRIVEN  BY  A  PRACTICAL  LEVEL  OF  TES 

T  TIME  NHICN  IS  VERY* 

361  PRINT'EIPENSIVE.'iPRINT 

371  PRINT'NAKE  AN  ESTIMATE  OF  A  REASONABLE  TEST  TIME,  RECOGNIIING  THAT  AT  LEAST 
THREE  (31* 

3Bf  PRINT'UNITS  OR  MORE  RUST  EACH  BE  TESTED  FOR  THAT  TIME'iPRINT 
391  PRINT'INPUT  TEST  HOURS'n INPUT  TESTHOURSi PRINT 
411  RATI0>TESTH0UR8/ETAiPRIRT'RATI0  ■*|RATIO,lPRIIIT'KTA  •'flETA 
411  PRINT 

INI  PRINT'NON  CHOOSE  THE  NEAREST  VALUE  OF  THE  NEIMilL  SLOPE  BETA  AND  RATIO  OF  T 
EST  TINE* 

111!  PPINT'TO  THE  CHARACTERISTIC  LIFE  THAT  IS  IN  THE  FOLLOHING  TABLE.  HAKE  A  NO 
TE  OF  THE* 

1121  PRINT'SANPLE  SUE  FROH  THE  TASlE.'iPRIHTiPRIHT 

1151  PRINT'PRESS  ENTER  TO  CONTIHUE*|lINPUT  SliIF  St*"  THEN  14N 

1491  CLSiPRINT*  BETA* 
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1500  PRINT’RATIO 

0.5 

1.0 

1.3 

2.0 

2.5 

3.0 

3.3 

4.0 

4.3 

5.0* 

1520  PR1NT*0.01 

24 

It 

It 

It 

II 

It 

II 

II 

It 

II* 

1330  PR1NT*0.02 

17 

U 

It 

II 

It 

It 

II 

It 

It  . 

l’340  PRlHt*0r03 

14 

It' 

It 

II 

'  It 

II 

11 

ir 

1330  PR1NT*0.04 

12 

It 

It 

It 

II 

It 

II 

II 

It 

11* 

1560  PRINT*0.05 

11 

47 

II 

II 

II 

II 

11 

11 

11 

It* 

1570  PRINT*0.06 

10 

39 

II 

II 

II 

II 

11 

II 

It 

II* 

1580  PR1NT*0.07 

9 

33 

11 

It 

II 

II 

It 

II 

II 

II* 

1590  PRINT*!. 08 

9 

29 

II 

It 

II 

II 

11 

It 

11 

II* 

1601  PRINT'0.19 

8 

26 

It 

II 

It 

It 

11 

It 

It 

II* 

1610  PRINT*!. 10 

8 

24 

II 

II 

II 

11 

II 

II 

It 

II* 

1620  PRINT*!. 20 

6 

12 

26 

It 

It 

11 

It 

It 

It 

n* 

1630  PR!NT*0.30 

3 

8 

IS 

26 

47 

11 

11 

II 

It 

II* 

1640  PRINT*!. 40 

4 

6 

10 

IS 

23 

36 

II 

It 

11 

11* 

1650  PRINT*0.S0 

4 

3 

7 

10 

14 

19 

27 

37 

II 

II* 

1660  PRINT*!. 60 

3 

4 

3 

7 

9 

11 

14 

18 

23 

30* 

1670  PR1NT*0.70 

3 

4 

4 

5 

6 

7 

9 

10 

12 

14* 

1680  PRINT*0.80 

3 

3 

4 

4 

5 

3 

6 

6 

7 

8* 

1690  PRINT*0.90 

3 

3 

3 

3 

3 

4 

4 

4 

4 

4* 

1700  PRINT*1.00 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3* 

1720  PRINT*  It  INDICATES  SAMPLE  SIZE  EXCEEDS  SI  -  INPUT  99  FOR  SAMPLE  SIZE* 

1741  PRINT*  BETA*';BETA;*  RATIO<*;RATIO 

1751  PRINT*PR1NT  SCREEN  FOR  HARD  COPY  OF  THE  TABLE.  INPUT  THE  SAMPLE  SIZE  FROM 

THE  TABLE*; ! INPUT  SSiSOTO  4991 

2111  CLSt PRINT*  BETA* 

2111  PRIHT*SAHPLE* 


2020 

PRINT* 

SIZE 

0.3 

1.0 

1.3 

2.0 

2.5 

3.0 

3.5 

4.0 

4.5 

5.0' 

2030 

PRINT* 

3 

.389 

.767 

.838 

.876 

.900 

.916 

.927 

.936 

.943 

.948' 

2040 

PRINT* 

4 

.331 

.376 

.692 

.739 

.802 

.832 

.054 

.871 

.884 

.895' 

2050 

PRINT* 

3 

.212 

.460 

.596 

.679 

.733 

.772 

.801 

.824 

.842 

.856' 

2060 

PRINT* 

6 

.147 

.384 

.328 

.619 

.682 

.727 

.761 

.787 

.808 

.826' 

2070 

PRINT* 

7 

.108 

.329 

.477 

.574 

.641 

.690 

.728 

.757 

.781 

.801' 

2080 

PRINT* 

8 

.083 

.288 

.436 

.536 

.60B 

.660 

.701 

.732 

.75B 

.780' 

2090 

PRINT* 

9 

.065 

.256 

.403 

.506 

.580 

.635 

.677 

.711 

.739 

.761' 

2100 

PRINT* 

10 

.033 

.230 

.376 

.4B0 

.556 

.613 

.657 

.693 

.722 

.745' 

2110 

PRINT* 

12 

.037 

.192 

.333 

.438 

.517 

.577 

.624 

.662 

.693 

.719' 

2120 

PRINT* 

14 

.027 

.164 

.300 

.406 

.486 

.548 

.597 

.637 

.670 

.697' 

2130 

PRINT* 

16 

.021 

.144 

.275 

.379 

.461 

.524 

.575 

.616 

.650 

.679' 

2140 

PRINT* 

18 

.016 

.128 

.254 

.358 

.439 

.M4 

.556 

.598 

.633 

.663' 

2130 

PRINT* 

20 

.013 

.113 

.237 

.339 

.421 

.486 

.539 

.582 

.619 

.649 

2160 

PRINT* 

23 

.008 

.092 

.204 

.303 

.385 

.452 

.506 

.531 

.389 

.621' 

2170 

PRINT* 

30 

.006 

.077 

.181 

.277 

.358 

.425 

.480 

.526 

.563 

.398' 

2180 

PRINT* 

40 

.003 

.058 

.149 

.240 

.319 

.386 

.442 

.490 

.530 

.565' 

2190 

PRINT* 

30 

.002 

.046 

.128 

.213 

.292 

.358 

.415 

.463 

.505 

.540 

2195 

PRINT* 

DETA«*|KTAt* 

SAMPLE  SIZE' 

■•(SS 

2210  PRINT'PRINT  SCREEN  FOR  HARO  COPY  OF  TABLE.  INPUT  TEST  HOUR  RATIO  FROM  TABL 


E*iiINPUT  RATIO; SOTO  7200 

4990  CLStPRINT*  SAMPLE  SIZE>*|SSlPRINTiPRINT 

Sill  PRINT'IF  A  REASONABLE  RATIO  OF  TEST  TIME  TO  ETA  HAS  RESULTED  IN  AN  UNREASON 

ABLE* 

Sill  PRINT'SAMPLE  SIZE  (OR  A  SAMPLE  SIZE  OF  OVER  FIFTY,  INDICATED  BY  111  YOU  SHO 
ULD  NON* 

5120  PRINT*HAKE  ANOTHER  ESTIMATE  OF  TEST  HOURS  OR  OPT  FOR  ANOTHER  METHOD  OF  TEST 
PLAN* 

3021  PRINT*DETERNINATION.*iPRINT 

3030  PRINT*PLEA8E  CHOOSE  FROM  THE  F0LL0NIN6  OPTIONS; *tPRINT 
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Sf35  IF  SS><Sf  BOTO  Sill 

5136  PRINTMttItll  SINCE  SAHPLE  SIZE  IS*:SS| ‘CHOOSE  ONLY  OPTION  2  OR  3  titittt'; 
PRINTiPRINT 

SMI  FOR  ZM  TO  12>BEEP:NEIT  Z 

5145  PRINT'TO  CONTINUE  PRESS  ENTER‘|i INPUT  DltlF  D»>"  THEN  SIH 

5111  PRINT'  1.  DISPLAY  THE  TEST  PLAN  FOR  CURRENT  SAHPLE  SIZE  OF'|SS 

•print 

Sill  PRINT'  2.  HAKE  ANOTHER  ESTIHATE  OF  TEST  HOURS. 'iPRINT 

5121  PRINT'  3.  USE  ALTERNATE  TEST  PLAN  HETHOD.'tPRINTiPRINT 

5131  PRINT'INPUT  OPTION  NUHBER  FROH  THE  ABOVE  LIST.'iiINPUT  N 
5141  ON  N  BOTO  5MI, 391, 7111 

5511  CLSiPRINTiPRINTiPRINTtPRlNT'THE  TEST  PLAN  CONSISTS  OF  THE  FOLLONINBi'iPRINT 
! PRINT 

5511  PRINT'  SAHPLE  SIZE  IS'iSSsPRINT 

5521  PRINT'  TEST  HOURS  ARE'tTESTHOURStPRINTiPRINT 

5531  PRINT' IF  ALL  THE  SAHPLES  SURVIVE  THE  TEST  NITHOUT  FAILURE  THEN  THE  FAILURE 

NODE  NHERE'iPRINT 

5541  PRINT'  BETA  **{BETA|*  AND  ETA  i';ETAiPRINT 

5551  PRINT'HAS  BEEN  EITHER  ELIHINATED  OR  SI6N1FICANTLY  IHPROVED.' 

5561  PRINT  'THE  TEST  TINE  IS' | RATIO!  1H| 'PERCENT  OF  THE  CHARACTERISTIC  LIFE  OF'i 
ETA' 'HOURSi ' 

5711  LPRlNTiLPRINTiLPRINT:LPRINT'THE  TEST  PLAN  CONSISTS  OF  THE  F0LL0HIN6:';LPRIN 
T:LPRIHT 

5711  LPRINT'  SAHPLE  SIZE  IS'iSSlLPRlNT 

5721  LPRINT'  TEST  HOURS  ARE*;TESTHOURS:LPRINTiLPRINT 

5731  LPRINT' IF  ALL  THE  SAHPLES  SURVIVE  THE  TEST  NITHOUT  FAILURE  THEN  THE  FAILURE 
NODE  NHERE'iLPRINT 

5741  LPRINT'  BETA  «'|B£TA|'  AND  ETA  »'»ETAjLPRINT 

S7S(  LPRINT'HAS  been  either  ELIHINATED  OR  SIBNIFICANTLY  IHPROVED.' 

5761  LPRINT'THE  TEST  TIHE  IS'tRATIOtlfl|*PERCENT  OF  THE  CHARACTERISTIC  LIFE  OF'; 
ETA; 'HOURS.' 

S9ff  FOR  I«1  TO  8lLPRINT;NEn  I 
5911  BOTO  29511 
6Mf  END 

7fH  CLS;PRINT;PRINT:PRINT;PRINT'THE  ALTERNATE  TEST  PLAN  HETHOD  REQUIRES  THE  INP 
UT  OF  A  REASONABLE  NUHBER  OF' 

7111  PRINT'UNITS  FOR  TEST  (SAHPLE  SIZE!  AND  THE  SELECTION  OF  A  TEST  HIXffi  RATIO  F 
ROH  THE  ' 

7121  PRINT'FOLLONINB  TABLE.  HAKE  AN  ESTIHATE  OF  A  REASONABLE  SAHPLE  SIZE';;INPU 
T  SS:PRIHT 

7131  PRINT'NON  CHOOSE  THE  NEAREST  VALUE  OF  THE  HEIBULL  SLOPE  BETA  AND  THE  SAHPLE 
SIZE  YOU' 

7141  PRINT'JUST  ESTIHATED  AND  THEN  NOTE  THE  CORRESPONIINB  TEST  HOUR  RATIO. 'iPRIN 
T 

7fSf  PRINT'PRESS  ENTER  TO  CONTINUE'n INPUT  IliIF  SI*"  THEN  2Nf 

7211  CLSiPRINTtPRINTiPRINTiPRINT'THE  TEST  PLAN  NON  COMISTS  OF  THE  FOLLOHINBi'iP 

RINTiPRINT 

7211  PRINT'  SAHPLE  SIZE  IS'iSStPRINT 

7221  PRINT'  TEST  HOURS  ARE'|RATIOIETAlPRINTlPRINT 

7231  PRINT'IF  ALL  THE  SAHPLES  SURVIVE  THE  TEST  NITHOUT  FAILURE  THEN  THE  FAILURE 

NODE  NHERE'iPRINT 

7241  PRINT*  BETA  -'iBETAi*  AND  ETA  •'(ETAiPRINT 

7251  PRINT'HAS  BEEN  EITHER  ELIHINATED  OR  SIMIFICANTLV  IHPROVED.' 

7261  PRINT'THE  TEST  TINE  IS'|RATIOtlN}'PERCENT  OF  THE  CHARACTERISTIC  LIFE  OF'iE 
TA| 'HOURS.' 

7511  LPRINTiLPRINTiLPRINTlLPRINT'THE  TEST  PLAN  NON  CONSISTS  OF  THE  FOLLONINBi'iL 
PRINTiLPRINT 
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751*  LPRINT'  SAMPLE  SIZE  IS*;SS:LPRINT 

7S2f  LPRINT'  TEST  HOURS  ARE‘|RATIOIETA>LPRINT:LPRINT 

7S3f  LPRINT'IF  ALL  THE  SAMPLES  SURVIVE  THE  TEST  NITHOUT  FAILURE  THEN  THE  FAILURE 
MODE  NHERE'iLPRINT 

7541  LPRINT'  RETA  «'|BETA|'  AND  ETA  >*;ETA:PRINT 

7S5D  LPRINT'HAS  BEEN  EITHER  ELIMINATED  OR  SI6NIFICANTLY  IMPROVED.* 

7561  LPRINT'THE  TEST  TIME  IS'|RATIOtlM:*PERCENT  OF  THE  CHARACTERISTIC  LIFE  OF'; 
ETA; 'HOURS.' 

7571  FOR  I>I  TO  BiLPRINTiNEIT  IiBOTO  29511 
BBII  END 

19491  LPRINT'  BETA' 


19511  LPRINT'RATIO 
19515  LPRINT' 

8.5 

1.8 

1.5 

2.8 

2.5 

3.8 

3.5 

4.8 

4.5 

5.8* 

19521  LPRlNT'l.ll 

24 

tl 

II 

It 

II 

It 

II 

It 

II 

“ii' 

19531  LPRINT'1.12 

17 

II 

It 

It 

It 

It 

It 

It 

II 

It' 

19541  LPRINT'I.I3 

14 

It 

It 

It 

tl 

tl 

It 

II 

II 

II* 

19551  LPRINT*l.f4 

12 

It 

It 

It 

It 

It 

II 

It 

It 

It* 

19561  LPRINT'I.I5 

11 

47 

It 

tl 

II 

tl 

tl 

It 

It 

It* 

19571  LPRINT'I.I6 

18 

39 

It 

II 

It 

tl 

II 

tl 

tl 

If 

19581  LPRINT'l.f7 

9 

33 

tl 

II 

II 

It 

II 

It 

It 

If 

19591  LPRINT'I.IB 

9 

29 

II 

It 

tl 

It 

It 

II 

It 

If 

19618  LPRINT'1.19 

8 

26 

It 

It 

It 

II 

II 

It 

It 

If 

19618  LPRINT'8.18 

8 

24 

II 

II 

It 

It 

II 

II 

II 

If 

19628  LPRINT'8.28 

6 

12 

26 

It 

tl 

II 

It 

II 

It 

If 

19638  LPRINT'8.38 

5 

8 

15 

26 

47 

II 

It 

It 

It 

If 

19648  LPRINT'8.48 

4 

6 

18 

IS 

23 

36 

tl 

It 

II 

If 

19658  LPRINT'8.58 

4 

5 

7 

18 

14 

19 

27 

37 

It 

If 

19668  LPRINT'8.68 

3 

4 

5 

7 

9 

11 

14 

18 

23 

38' 

19678  LPRINT'8.78 

3 

4 

4 

5 

6 

7 

9 

18 

12 

14* 

19688  LPRlNT'8.e8 

3 

3 

4 

4 

5 

5 

6 

6 

7 

8* 

19698  LPRINT'8.98 

3 

3 

3 

3 

3 

4 

4 

4 

4 

4* 

19788  LPRINT' 1.88 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3' 

19721  LPRINT'  tl  INDICATES  SAMPLE  SIZE  EICEEDS  51' 


2IMI  LPRINT;LPRINT!LPRINT!60T0  29111 

29f«  LPRINT'  BETA' 

29IH  LPRINT'SAMPLE' 


29828  LPRINT* 
29825  LPRINT* 

SIZE 

8.5 

1.8 

1.5  2.8  2.5  3.8  3.5 

4.8 

4.5 

5.8* 

1 

29838  LPRINT* 

3 

.589 

.767 

.838  .876  .988  .916  .927 

.936 

.943 

.948* 

29848  LPRINT* 

4 

.331 

.576 

.692  .759  .882  .832  .854 

.871 

.n4 

.895* 

29858  LPRINT' 

5 

.212 

.468 

.596  .679  .733  .772  .HI 

.824 

.842 

.856* 

29868  LPRINT* 

6 

.147 

.384 

.528  .  619  .H2  .  727  .  761 

.787 

.8N 

.826* 

29878  LPRINT* 

7 

.188 

.329 

.477  .574  .641  .691  .728 

.757 

.781 

.881* 

29888  LPRINT* 

8 

.883 

.288 

.436  .536  .618  .661  .711 

.732 

.758 

.TN* 

29898  LPRINT* 

9 

.865 

.256 

.483  .  586  .  588  .  635  .677 

.711 

.739 

.761* 

29188  LPRINT* 

18 

.853 

.238 

.376  .488  .556  .613  .657 

.693 

.722 

.743* 

29118  LPRINT* 

12 

.837 

.192 

.333  .438  .517  .577  .624 

.662 

.693 

.719* 

29128  LPRINT* 

14 

.827 

.164 

.388  .  486  .  416  .  541  .597 

.637 

.678 

.697* 

29138  LPRINT* 

16 

.821 

.144 

.275  .379  .461  .524  .575 

.616 

.6H 

.679* 

29148  LPRINT* 

18 

.816 

.128 

.254  .  358  .  439  .N4  .556 

.598 

.633 

.663* 

29158  LPRINT* 

28 

.813 

.115 

.237  .339  .421  .4U  .539 

.582 

.619 

.649* 

29168  LPRINT* 

25 

.888 

.892 

.284  .383  .385  .452  .586 

.551 

.589 

.621* 

29178  LPRINT* 

38 

.886 

.877 

.181  .277  .  358  .  425  .  4N 

.526 

.565 

.399* 

29188  LPRINT* 

48 

.883 

.158 

.149  .  248  .  319  .  386  .  442 

.498 

.538 

.565* 

29198  LPRINT* 

58 

.882 

.846 

.128  .215  .292  .358  .415 

.463 

.M3 

.548* 
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2919S  FOR  OM  TO  8:LPRlNT:NEn  0 
29211  CHAIN  'NEIBER' 

29511  PRINTiPRlMTsPRIHT’DO  YOU  HAVE  ANOTHER  ANALYSIS  TO  RUN  -  (Y)  OR  (Nl  •;:INP 
UT  At 
295II  CLS 
29511  K»KM 

29521  IF  At«'N'  THEN  29Aff 
29531  IF  AI»*Y'  THEN  II 
29541  CLS: SOTO  29511 

29611  CLSiPRINT'NOULO  YOU  LIKE  A  HARO  COPY  OF  THE  TABLES  USED  IN  THIS  C0DE';:1NP 
UT  Ft! IF  Ft**Y*  THEN  19491  ELSE  IF  Ft«*N*  THEN  292M 
29999  END 

3IBff  CLStPRINT'SAVINS  ZOFAILSB  ON  DISK  B'lSAVE  *BiZOFAILSB*!END 
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5  CLS 

6  PRINTsPRINT 

If  PRINT* 

21  PRINT* 

31  PRINT* 

■41  PRINT* 

51  PRINT* 


PR06RM  TO  6ENERATE  A  NON-ZERO  FAILURE  TEST  PLAN* 
SANPLE  SIZE  REQUIRED  FOR  GIVEN  TEST  TINE* 
HRITTEN  BY  JANES  L.  BYERS,  CODE  if52* 

NAVAL  AIR  DCVELQPNENT  CENTER* 
HARHINSTER,  PA  1S974* 


if  PRINTtPRINTtPRINT 
III  LPRINTiLPRINT 

111  LPRINT*  PROGRAN  TO  GENERATE  A  NON-ZERO  FAILURE  TEST  PLAN* 

121  LPRINT*  SANPLE  SIZE  REQUIRED  FOR  GIVEN  TEST  TINE* 

131  LPRINT*  MITTEN  DY  JANES  L.  DYERS,  CODE  6152* 

141  LPRINT*  naval  AIR  DEVELOPNENT  CENTER* 

151  LPRINT*  NARNINSTER,  PA  1B974* 


161  LPRINT:LPR1NT:LPRINT 

211  PRINT*THESE  TEST  PLANS  NILL  HAVE  THE  FOLLONING  STRUCTURE; *:PR1 NT 
211  PRINT*  A.  PUT  N  ITENS  ON  TEST  FOR  T  HOURS  (CYCLES)  EACH.* 

221  PRINT*  B.  NHEN  AN  ITEN  ON  TEST  FAILS,  IT  IS  NOT  REPAIRED.* 

231  PRINT  C.  IF  Rl  OR  FENER  FAILURES  OCCUR,  THE  TEST  IS  PASSED.* 

311  LPRINT*THESE  TEST  PLANS  HILL  HAVE  THE  FOLLONING  STRUCTUREt*tPRINT 
311  LPRINT*  A.  PUT  N  ITENS  ON  TEST  FOR  T  HOURS  (CYCLES)  EACH.* 

321  LPRINT*  B.  NHEN  AN  ITER  ON  TEST  FAILS,  IT  IS  NOT  REPAIRED.* 

331  LPRINT*  C.  IF  Rf  OR  FENER  FAILURES  OCCUR,  THE  TEST  IS  PASSED.* 

341  LPRINTiLPRINT 
991  PRINTiPRiNT 

nil  PRINT* INPUT  VALUE  OF  PROBABILITY  OF  PASSING  TEST  NITH  ETA  OF  FAIL  NODE.* 
nil  PRINT*THIS  IS  ONE  NINUS  THE  PERCENT  CONFIDENCE  OF  THE  VALUE  OF  ETA  •  USUALL 
Y  1.1* 

1115  PRlNT;PRlHT*AI«*jjINPUT  Al 

1151  PRlHTiPRINT'INPUT  VALUE  OF  PROBADILITY  OF  PASSING  TEST  NITH  ETA  DESIRED* 
1161  PR1NT*TNIS  IS  THE  PERCENT  CONFIDENCE  OF  ETA  DESIRED  -  USUALLY  1,9* 

1165  PRINT;PRINT*Al»';iINPUT  Al 

nil  PRINT:PRINT*INPUT  VALUE  OF  ETA  FOR  FAIL  NOOE*(lINPUT  El 

1151  PRINTiPRINT'INPUT  VALUE  OF  ETA  DESIRED* 5; INPUT  El 

1211  PR1HT;PRIHT*1HPUT  NUNBER  OF  TEST  HOURS  FOR  EACH  TEST  ARTICLE*j:INPUT  T 

1251  PRINT; PRINT’ INPUT  VALUE  OF  BETA  FOR  FAIL  nODE*(t INPUT  B 

1261  CLS 

1261  LPRINTiLPRINT 

1264  LPRIHT*AI  »*|AI,*A1  «*;A1,*ETAI  ••iEI,’ETAl  **;E1,’TEST  HOURS  •■|T,’BETA  «* 
<B 

1291  REH  Rf>l 

1291  R(f)«liR(l)>liR(2)>2sR(3)«3<RI4)>4iRIS)>S 
1311  PI»1-E)IP(-((T/EI)*B)I 
1351  PI»1-£IP(-((T/E1)*BII 

1411  Rl«| 

1411  CLS 

1451  FOR  NMl  TO  IN 
1511  Gf«(l-PI)*ND 

1551  PRINT’AI»*iAI,’GI«’(M,’NI«’|N 
1591  REN 

1591  DIF>Gf-AI 

1592  IF  DIF).llt  THEN  1651  ELSE  1661 

1611  PRINT'ARE  M  AND  M  EQUAL  OR  CLOSE  ENOUGH,  (Y)  OR  (N)*|i INPUT  El; IF  Et>'Y* 
THEN  1661;  IF  EM’N*  GOTO  1651 
1611  IF  EBO  'N*  THEN  IS9Q 
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1631  NEIT  Nf 

1661  AI(l)«Alt6l(l)>6fiNf(l)>NI 

1661  PRIMT:PRIHTjPRINT'  PRESS  f5  KEY  TO  COHTIHUE’ 

1662  STOP 

1663  CIS 

1711  FOR  Nl»l  TO  Ilf 
1731  6l«(l-PirRl 

18H  PR»(T-Al«'jAl,*Sl»';61,'Nl«*;Hl 
IBlf  DIF*S1-A1 

1821  IF  OIF). Ill  THEN  1911  ELSE  1912 

1831  PRINT'ARE  A1  AND  61  EQUAL  OR  CLOSE  EII0U6H,  (Y)  OR  IN) INPUT  El:  IF  EI>'Y' 
THEN  1911:  IF  EM'N'  THEN  1911 
1861  IF  EtO  'N‘  THEN  1831 

1911  NEIT  N1 

1912  R«(NftPf)/(NltPll:PRlNT  H 

1913  N«Pf/PliPRINT  N 

1911  Al(l)«Al:61(f)<6l!Nl(fl«Nl:H(f>«H 

1911  PRINT'  PRESS  F5  TO  CONTINUE' 

1912  STOP 

2131  IF  N*<N  GOTO  6911 
2111  IF  H)N  GOTO  2161 
2141  CLS 
2131  REN  Rl*l 
2131  RllIM 
2161  CLS 

2211  FOR  Nf«l  TO  Ilf 
2231  6l*(l'PirN|4NflPft(l-Pf)*INf-ll 
2311  PRIHT'AI*'jAI,'GI*';GI,'NI*'}NI 
2311  01Ft6f-Af 

2321  IF  0IF>.I11  THEN  2411  ELSE  2411 

2331  PRINT'ARE  Af  ANO  61  EQUAL  OR  CLOSE  ENOUGH,  (Y)  OR  (N)*|i INPUT  El; IF  EU'Y' 
THEN  2411; IF  Et«'N'  THEN  2411 
2361  IF  ElO  'N'  THEN  2331 
2411  NEIT  Nf 

2411  Af(ll>AftGf(l)«6f:Nf(l)>Nf 

2411  PRINT'  PRESS  FS  TO  CONTINUE' 

2412  STOP 
2421  CLS 

2431  FOR  Nl*l  TO  Iff 

2511  61«ll-Pl)‘Nl+NllPmi*Pll*(Hl-l) 

2551  PRINT'Al«'jAl,'Gl»'|Gl,'Nl«'jNl 
2361  0IF>6I-AI 

2371  IF  0IF>.II1  THEN  2616  ELSE  2611 

2611  PRINT'ARE  A1  ANO  61  EQUAL  OR  CLOSE  ENOUGH,  (V)  OR  INI '|i  INPUT  Eli  IF  EM'V 
THEN  26611  IF  EI*'N'  THEN  2631 
2613  IF  ElO  'N'  THEN  2601 
2606  NEIT  Nl 

2611  fl«(NltPI)/(NltPlliPRINT  H 
2621  N*PI/PliPRINT  N 

2661  Al(l)>AliGl(n*GllNI(n*NliR(ll«fl 

2662  PRINT'  PRESS  F5  TO  CONTINUE' 

2663  STOP 

2811  IF  H><N  THEN  6911 
2831  IF  N>N  GOTO  2911 
29N  REN  Rf*2 
2911  R(2)>2 
2911  CLS 
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2951  CIS 

2961  FOR  Nf>l  TO  111 

3111  6I>  ( l-PI)  *NI>NltPII  ( t-PI)  MM-l  )HNIt  (NI-1 )  /2)  tPr2l  (1-PI)  *  (NI-2) 

3111  PRINT'AI«‘;AI,*6l«'|6l,‘NI<'tNI 
3151  DIF>ei-AI 

3161  IF  DIF).I11  THEN  3151  ELSE  3161 

3111  PRINT'ARE  Al  AND  61  EQUAL  OR  CLOSE  ENOUGH,  lY)  OR  (NI*|:INPUT  EI:1F  E9«‘Y‘ 
THEN  3161: IF  Et>'N'  THEN  3151 
3111  IF  EtO  ‘N‘  THEN  3111 
3151  NEIT  Nl 

3161  AI(2)>Alt6ll2)«6l:NI(2)«NI 

3161  PRINT*  PRESS  FS  TO  CONTINUE* 

3165  STOP 
3171  CLS 

3211  FOR  N1>1  TO  111 

3251  61«(l-Pl)*NltNllPlt(l-Pir(NH)HNlt(Nl-l))/2IPr2l(l-Pl)*(Nl-2) 

3311  PRINT*Al»*>Al,*61«*|61,*Nl«*jHI 
3311  DIF>61-A1 

3321  IF  DIF>.I11  THEN  3356  ELSE  3361 

3351  PRINT*ARE  Al  AND  61  EQUAL  OR  CLOSE  ENOUGH,  (Y)  OR  (N)*;i INPUT  E«;IF  EI**Y' 
THEN  3411:  IF  EM*N*  THEN  3411 

3355  IF  EtO  *N*  THEN  3351 

3356  NEIT  Nl 

3361  H>(NltPI)/(NIIPl):PRINT  H 
3371  N*PI/P1:PRINT  N 
3411  Al(2)«Al:61(2)«Gl:Nl(2)>NltN(2)*N 
3411  PRINT*  PRESS  FS  TO  CONTINUE* 

3415  STOP 

3551  IF  fl*<N  GOTO  6911 
3611  IF  R>N  GOTO  3655 
3651  REN  Rl«3 
3651  R(3)>3 
3655  CLS 

3661  FOR  NI>1  TO  111 

3751  6l«(l-PII*NI*NIIPII(l-PI)*(RI-l)t<NII(NI-l>)/2IPr2t(l-PI)MNI-2lt(NIIINI-l 
)t(NI-2)/6)l(PI)*3l(l-PI)*(NI-3) 

3811  PRINT’AI>‘|AI,*6I>*|6I,*NI>*|NI 
3811  D1F«6I-AI 

3821  IF  DIF>.I11  THEN  3911  ELSE  3911 

3851  PRINT*ARE  Al  AND  61  EQUAL  OR  CLOSE  ENOUGH,  (Y)  OR  (N)*(tINPUT  Et:IF  EI>*Y* 
THEN  3911: IF  Et**N’  THEN  3911 
3861  IF  EtO  'N*  THEN  3851 
39N  NEIT  Nl 

3911  AI(3)*AI:6l(3l>6liNI(3l«NI 

3911  PRINT*  PRESS  FS  TO  CONTINUE* 

3915  STOP 
3921  CLS 

3931  FOR  Nl«l  TO  IN 

INI  61<(l-PI)*NI*NllPII(l-Pl)*INI-ll»(Ntl(NI-l)l/2IPr2l(l-PnMNI-2IMNItlNI-l 
)l(Nl-2)/4)l(Pl)*3l(l-Pl)MNl-3) 

4131  PRINT'AI>*|A1,*G1«*;6I,*NI«'|NI 
4161  0IF-6I-AI 

4171  IF  IIF>.I11  THEN  4116  ELSE  4111 

4IN  PRINT*ARE  Al  AND  Gl  CLOSE  ENOUGH  (Y)  OR  (N)'|iINPUT  EtilF  EI**Y*  THEN  4161: 

IF  Et«*N*  THEN  4131 

4113  IF  EtO  *N*  THEN  4111 

4116  NEIT  Nl 
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4111  n>(NflPf)/(NltPl)iPRINT  n 

4121  N«Pf/Pl;PRINT  N 

4161  Al(3)*Al;61(3)«GltNl(3)«Nl:N(3l«H 

4171  PRINT'  PRESS  FS  TO  CONTINUE* 

41 7S  STOP 

43ff  IF  N><N  SOTO  6911 
43Sf  IF  H>N  SOTO  4412 
4411  REN  Rf*4 
4411  R(4I«4 
4411  CIS 

44SI  FOR  Nf>l  TO  IH 

4Sfl  6f«(l-PfrNf*NflPft(l-PI)''(NM)MNft(NM))/2IPr2t(l-Pf)MNI-2)«(Nft(Nf-l 
)/6)t(Pf)*3l(l-Pf)*(NI-3IMNIIINI‘l)t(Nf'2)l(Nf-3>/24)t(Pir4l(l-PI)'^(NI-4) 

4SSI  PRINT'AI«'|AI,'6l«'i6i,‘NI>'iNf 
4561  DIF*6f-AI 

4571  IF  D1F).I11  THEN  4651  ELSE  4661 

4611  PRINT'ARE  Al  AND  61  CLOSE  EN0U6H  (Y)  OR  (N)';! INPUT  El: IF  EM'Y'  THEN  4661: 

IF  EI*'N'  THEN  4651 

4611  IF  EtO  'N*  THEN  4611 

4651  NEIT  Nl 

4661  AI(4>«Af:6f(4)«6l!Nf(4)<Nf 

4661  PRINT*  PRESS  FS  TO  CONTINUE* 

4665  STOP 
4671  CLS 

4711  FOR  Nl-1  TO  Iff 

475f  61*U-P1I*N1*N1IP1I(1-P1)*(N1-1I*CN1I(N1*1))/2IP1*2I(1-P1)*IN1*21MH1I(N1*1 
)t(Nl*2)/6IIPr3t(I-Pir(Nl*3)MNll(Nl-l)l(Nl-2)l(Nl>3)/24)IPlMt(l-Pl)NNl-4) 
48ff  PR1NT*A1«*}A1,*61«*|61,*N1«*;N1 
481f  DIF<81-A1 

482f  IF  DIF>.fll  THEN  4856  ELSE  4868 

48Sf  PRINT'ARE  Al  AND  61  CLOSE  ENOUGH  (Y)  OR  (Nl'i: INPUT  El: IF  EI«*Y*  THEN  491f: 
IF  EI**N*  THEN  49ff 

4855  IF  ElO  *N*  THEN  4858 

4856  NEIT  Nl 

486f  N«(NflPf)/(NllPl):PRINT  N 

487f  N>Pf/Pl:PRINT  N 

4918  A1(4I*A1:61(4)>61:N1(4)«N1:N(4)*N 

SfSf  IF  N«<N  GOTO  6988 

5188  IF  N)N  GOTO  5152 

5158  REN  Rf«5 

5151  RISI>S 

5152  PRINT*  PRESS  FS  TO  CONTIIIUE* 

SISS  STOP 

5168  CLS 

S2N  FOR  N8>l  TO  Iff 

S23f  M>U-Pfl*Nf«NflPft(l-PflMNf-UMIIfl{M-in/2tPr2lll-Pf)Mllf-2)MNfl(Nf-l 
1 1  (Nf-21 /6I  tPf  *31  ( 1-Pf  1  *  (M-31  *  INf  t  INf-I)  t  IN -2)1  (M -3) /24)  Iff  Ml  ( l-Pf )  *  (Nf-fl « I 
Nf  I  (Nf- 1)  I  Iff -2)  I  (W-3)  I  (Nf -41  /I2f )  tPf*9t  ( t>ff  )*(llf-S) 

S3N  PRINT'Af>'|M,'6f**iGf,*llf>*illf 
S3lf  IIF>Gf-Af 

S32f  IF  IIF>.fll  THEN  SIM  ELSE  34if 

S3Sf  PRINT'ARE  Af  ANt  Gf  CLOSE  ENOUGH  <VI  ON  (N)'iiINPUT  EllIF  EI>*Y*  THEN  34lf: 

IF  EI«'N*  THEN  S4M 

S36f  IF  ElO  'N*  THEN  S33f 

S4ff  NETT  Nf 

S4If  Af(S)MftGflS)*6fiNflS)>M 

3411  PRINT*  PRESS  FS  TO  CONTINUE* 


A-56 


NADC-89019-60 


5415  STOP 
5421  CLS 

5451  FOR  Nl«l  TO  Iff 

55ff  61«(l*Pl)‘HUHllPll(l-Pir(«l-l>*(llUIHl-l)l/2IPr2l(l-Pl)*(l(l-2l*(l(ll(MI*l 
)t(Nl-2l/iltPr3t(l-Pir(Nl-3l*(NII(Nl-l)t(Nl-2)l(N|-3)/24)tPI*4l(l-Pl)''(Nl*4l4( 
Mlt(Hl-l)IIMl-2)imi-3)IINl-4)/l2f)IPr5lll-PnMNl-5) 

555f  PRINT‘Al>'|Al,'61«'i6t,*Nl«'tNl 
536f  DiF«61-Al 

337f  IF  OIF>.fll  THEN  56fi  ELSE  SAlf 

5Aff  PRINT'ARE  A1  AND  61  CLOSE  EN0U6H  (Y)  OR  (Nl'cINPUT  EftIF  E»*'Y*  THEN  56Af: 

IF  Ef«*N'  THEN  56fA 

5Af3  IF  ElO  ‘N*  THEN  56ff 

56fi  NEXT  N1 

SAlf  RMNftPfWlNltPlhPRINT  H 

5i2f  N«Pf/PliPRINT  N 

5Aif  Al(5)>Ali61(5)«61iNl(5l>Nl:N(5)>N 

5661  PRINT'  PRESS  FS  TO  CONTINUE* 

5665  STOP 

Sfff  IF  N«<N  60T0  69ff 
SeSf  IF  N>N  SOTO  1499f 
69ft  CLS 

Tiff  PRINT‘Af‘iTAB(ll);'6f*)TAB(22);*Nt*|TABI33)i‘Al‘;TAB(44)(‘81';TAB(5S);‘Nl': 
TAB(66)!*R*iTAB(77)j*Rf* 

71Sf  FOR  I*t  TO  5 

72tt  PRINT  At(lMTAB(llUSf(l»;TAt(22)$Nt(IUTAB(33);Al(IUTABU4);61(I);TABI55) 
;Nl(II;TAB(6S)iH(n;TAB(77){R(|) 

72Sf  NEXT  I 
73tl  PRlNTjPRlHT 

74ff  PRINT'NON  SELECT  THE  LAST  TNO  VALUES  OF  H  AND  CONPARE  THEN  NITH  i'lPRINT 
75ff  PRINT*  Nt*}Pf/PljPRINTjPRIHT 

76ff  PRINT'THE  FINAL  VALUE  OF  Nf  AND  N1  ARE  THE  VALUES  NHICH  ARE  IN  THE  RON  OF  V 

ARIABLES  THAT  CONTAINS  THE  VALUE  OF  H  CLOSEST  TO  THAT  OF  N  •  EITHER  t  OR  -.1? 

78ft  PRINT'INPUT  THESE  VALUES  OF  Nt  AND  Nl  AT  THE  PRONPTS';PRINT 

79ff  PRINT’INPUT  Nfl'i INPUT  Nt 

Sfff  PRINT* INPUT  Nl 1*1  INPUT  Nl 

0ff5  PRINT'INPUT  Rfj*: INPUT  Rt 

8flf  PRINT:PRINT 

8815  CLS 

8f2f  PRINT'THE  SAMPLE  SIZE,  EACH  OF  NHICH  HUST  BE  TESTED  FOR'tT|‘HOURS,  IS'iPRIN 
T 

8f3f  PRINT*  SAMPLE  SIZE  «'|INTI(INf»NI)/2*.5>) 

8831  PRlNTtPRINT’IF’;Rf;’OR  LESS  FAILURES  OCCUR  THE  TEST  IS  PASSED.* 

BfSt  LPRINTiLPRINT 

eiff  LPRINT'THE  SAMPLE  SIZE,  EACH  OF  NHICH  HUST  K  TESTED  FOR* |T| 'HOURS,  ISi':LP 
RINT 

82ff  LPRINT*  SAMPLE  SIZE  ■*|IIITI((Nf«NI)/2«.S)) 

8231  LPRINTiLPRINT* IF* |Rt; 'OR  LESS  FAILURES  OCCUR  THE  TEST  IS  PASSED.* 

B24f  PRINTiPRINTiLPRINTiLPRINT 
8245  SAnP8IZE*INT«Nf«Nl)/2«.S) 

8258  TOTESTHR'SAHPSIZEtT 

8268  PRINT'MAXINUM  TOTAL  TEST  HOURS  IF  ALL  TEST  UNITS  RUN  H/0  FAILURE  **sTOTESTH 
R; 'HOURS 

827t  LPRINT'MAXINUM  TOTAL  TEST  HOURS  IF  ALL  TEST  UNITS  RUN  H/0  FAILURE  •*|TOTEST 

HRi 'HOURS 

9fff  PRINTiPRINT 

91N  PRINT'DO  YOU  HAVE  ANOTHER  ANALYSIS  TO  DO  (Y)  OR  (N) 'll  INPUT  Al 
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9211  IF  At^'Y'  THEN  96M 
9311  IF  AM'N'  THEN  9511 
9351  CLSiBOTO  91M 
95fl  CHAIN  'NEIBER' 

96ff  CLS:60TO  IfH 
U9Bf  END 

14991  PRINT'PMBLEH  NOT  SOLVEABLE  ON  THIS  CODE.' 

29999  END 

3MfB  CLSiPRINT'SAVINS  NZFTESTP  INON-IERO-FAILUNE  TEST  PLAN  6ENERATOR)  ON  DISK  B 
■:8AVE  'BjNZFTESTP* 
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